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- Projetado especificamente para microcomputadores 
de uso pessoal ou comercial 

- Duto eletrificado com tomadas, tiltro e circuitos de ^g**^^ 
seguranca ^^^V. 
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Muitos ifisensatos ten tain amenizar as 
profecias apocalipticas dos ctenttstas 
falando em guerra nuclear limitada, am 
chances de sobrevivincia e outras falsas 
esperancas. Um pouco de conhecimento 
de ecobgia e meteorotogia, por4m, 
permite caicular as consequincJas de um 
conflito nuclear: as chances de 
sobrevivSncia na Terra sao reduzidfssimas 
e ainda assim para algumas espe'eies, entre 
as quail, com certeza, nao se inclui a 
hum ana. 

O que fazer? £ hora de todos os 
indivi'duos perceberem que o conflito 
ba'sico nab 4 politico ou ideoldgico: o 
problema nSo 4 mats de esquerda contra 
direita ou moderados contra radicals. 
O problema ba'sico 4 de indivi'duos contra 
o totaliterismo mais ou menos acentuado 
de tod ot os Estados. Enquanto o 
indivi'duo nio for respeitado em seus 
direitos mais b4sicos, a humanidade como 
um todo estara" seriamente ameacada. 

Esta ameaca se torna mais concreta no 
momento em que as nacoes formam 
sociedade cada vez mais informatizadas, 
acentuando o poder de controls daquela 
meia duzia de paran6icos sobre todos os 
cidadaos 1984 est a ai e o Big Brother ja 
4 uma rea/idade. No Brasil, talvez se 
chame SNI, na URSS, KGB, mas ele, sob 
multiplas facetasja' existe. 

Alguns pacifistas insurgemse contra a 
intencao (pat4tica) de fabrt'earmos 
bombas at&micas no Brasil, manifestada 
recentemente por algumas autoridades. 
Muito, mas muito mais ameacador do que 
isto 4 o projeto de centratizacao, em um 
iinico banco de dados, de tod as as 
informacoes referentes a ficha individual 
de todos os brasileiros. 

Se este projeto for levado adiante, a 
maior rapidez na investigacao de alguns 
eventuais criminosos implicate no 
controle total e absoluto sod re todos os 
cidadaos. Nestas condicom o computador 
se tornari uma arms muito mais ietal que 
a propria bomba atdmica. Serf dado mais 
um passo no sentido de alienar o 
indivi'duo do poder de decisao sobre sua 
propria vida e sobre o futuro de seus 
descendentes. 

Se isto acontecar, poderemos dizer que 
o advento do computador realmente 
propiciou a chegada de 1984. 

Feliz Ano Novo! 
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Carol amigos, 

... que realmente me levou a escre- 
ver para voces foi o artigo LGM- Mensa- 
gem da Vega - Quebra-Cabeca da revista 
nurnero cinco. No rodape da pagina 22 
existe uma nota fazendo mencao a uma 
Qrganizacao chamada Mensa International 
que muito me chamou a atengao. Como 
eu poderia obter maiores informacoes a 
respeito dela? Na ocasiao voces afirmaram 
que, escrevendo para esta secao seria pas- 
sive! obter dados a respeito desta organi- 
zacao. Gostaria muito que me erwiassem 
estas informacoes, assim que possi'vel. 

Desde ja agradeco a sua atencao, certo 
que serei atendido. Fabio Appolinario 
Sao Paulo, Capital. 

Preiado Fabio, 

Obrigado peios parabtns. A quatidade 
da Microhobby 6 nossa maior preocupa- 
gio e e" at rave's das cartas de nossos lei to- 
res Que sabemos se estamos no caminho 
certo ou nao. 

Para evitarmos responder a todos os 
leiwres, individualmente, decidimos pu- 

blicar brevemente uma ^ ^ 

matiria sobre a •^V 



Mensa. Pedimo-lhe urn pouco de paciSn- 
cia para que possamos e labors' -la. 

Prezados Senhores, 

N6s, sofredores do TK, ao passarmos 
um programs para o gravador ou vice- 
versa, estamos avidos para que haja uma 
sotucao para esie sofrimento. 

Por varias vezes, a revista anunciou "a 
solucao", como por exemplo, a utili^acao 
do Tig-Loader (pagina inteira. a cores na 
numero cinco). 

Bern, comprei o tal aparelho, por^m 
nao obtive resultado positivo algum, a 
nao ser que fiquei 15 mil cruzeiros mais 
pobre. 

Agora, a revista anuncia outro "Salva- 
dor", o CMS/ZX, por um preco camarada 
de apenas Cr$ 19.950,00. Fergunto; "sera 
que este realmente vai funcionar? Dual a 
sua sugestao para que eu nao corra outro 
risco?" 

Eu sugiro que, para esta revista manter 
sua boa reputacao, publique 
somente este 
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tipo de anuncio depois dos aparelhos 
devidamente testados ou entao colocar 
em baixo do aniincio: "Nao testado pela 
revisla". 

Considero a revista Microhobby exce- 
lente e gostaria de manter esta impressao 

Quero deixar claro que o TK e um 
computador com aplicacoes infinitas e 
estou satisfeito com o mesmo. Willem 
H.J.G. Scheepmaker, Sao Paulo, Capital. 

Cara Willem, 

Diariamenxe voce~ ouve e ve no radio, 
na televisio, nos jornais e revistas, nos 
out-door's e luminosos,anuncios afirman- 
do por exemplo, que 4 muito bom fumar 
cigarros, beber refrigerantes .transmit! ndo 
a idiia de que estes hibitos tornam as pes- 
soas mais jovens, inteligentes e bonitas. 
Por&m, nem por isso estes meios de comu- 
nicacSo sao responsiveis pela veracidade 
dos anuncios pagos. 
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Nio es tamos dizendo com is to que os 
anuncios existentes na Microhobby nio 
sao confiaveis, apenas queremos deixar 
clam que a responsabitidade pela quali- 
dade dos produtos anunciados 4 do anurv 
ciartte!! 

Especificamente com relacao ao Tig- 
Loader, informamo-lhe que em muitos ca- 
ses, ele 4 a nossa "salvacao" quando ten- 
tamos introduzir programas da fitas envia- 
das pelos leitores. Clara que' ha" casos em 
que sd mesmo com um "milagre" (coisa 
que as aparelhos nao sabem fazer, ainda \) 
conseguimos introduz i-los. 

Infelizmente, nao possuimos um CMS/ 
ZX e por esta razao nao o testamos, mas 
acreditamos nao haver problemas com seu 
funcionamento. 

Os Oitenta e Por Dentro do Apple 
Prezados Senhores, 

Como usuario de TK, fiquei muito sa- 
tisfeito com o lancamento de uma revista 
d est mad a aos usuirios destas maquinas; 
nao tive duvidas, tratei logo de oficializar 
minha assinatura, pensando no conteudo 
das secoes, bem como nas sepoes pre- 
vistas. 

Gostei muito dos numeros iniciais, mas 
gostaria de transmitir a minha insatisfa- 
cao e creio tambem que deva ser a de 
grande maioria dos assinantes. 

1. Na secao Hobby ainda nao foi pu- 
blicado nenhum projeto, como se trata de 
uma revista que conta coma colaboracao 
dos usuaYios para beneficiar usuarios, nao 
deveria haver probiemas na montagem 
desta secao; afinal nao se trata de divul- 
gar segredo industrial. 

2. Assuntos prometidos para o nume- 
ro seguinte e que nao sao publicados, 
exemplo o artigo "Funcoes especiais para 
o TK-85", na revista numero 4. 

3. Assuntos que nada tSm a ver com o 
TK, no caso "Por Dentro do Apple"; tra- 
ta se de tirar esta secao, uma vez que o as- 
sunto nao e pr6prio; a revista Microhobby 
6 para os usuarios do TK, Sugestao: pen- 
sem numa revista para usudrios desta ma- 
quina. 

Por fim, gostaria que os senhores enca 
rassem isto como uma cn'tica construtiva 
visto que, o que foi proposto nao esta 
sendo cumprido. Rubens Maui — Curiti- 
ba.PR. 

Caro Rubens, 

Provavelmente sua preocupacao com 
as secoes sobre os micros das tinhas Apple 
e TRS-80 4 comum a muitos leitores (in- 
clusive n6s mesmos que, em nossos lares 
possuimos tambim, micros TK). Nossa 
ide"m parece nio ter sido entendida com- 
pletamente por vooi. (Vide a secao Des- 
grilandoj Tamb4m 4 comum recebermos 
cartas de leitores que tSm acesso a outros 
micros pedindo-nos informac&es sobre o 
funcionamento dos mesmos. O numero 



destas cartas nao 4 desprezivel. Justifies- 
se, portanto, a introducao das duas (e 
agora trSsi secoes, uma vez que atende as 
necessidades de usuarios do TK. AI4m dis- 
so, mesmo para aqueles que s6 tSm aces- 
so ao TK, cremos ser import ante fse/'a co- 
mo curiosidade ou como aperfeicoamento 
t4cnico) conhecer o funcionamento de 
outras maquinas — 4 importante nao "bi- 
tolar-se"\ 

Imagine que vocS veja, em a I gum Sugar, 
um excelente programa para o TRS-80 ou 
para o Apple e o queira utilizar no TK. 
Ao inv4s de escrever-nos, perguntando 
como proosder, acompanhe as secoes so- 
bre esses dois micros e voci mesmo teri 
condicoes de adapta-lo ! Para facilitar sua 
tarefa, introduziremos a secao Vice- Versa 
nos prdximos numeros. Nessa secao serao 
expostas formas para traduzir-se progra- 
mas do Basic-TK para os do TRS-80, 
Apple e vice-versa. 

Nao estaremos tomando espaco do 
TK, uma vez que a quantidade de mat4- 
rias por edicao esta" cada vez maior (esta- 
mos introduzindo tris colunas em algu- 
mas mat4rias). Com relacao a secao 
Hobby, como voce pode notar, comeca- 
mos a tirar o atraso (pelo qua) nos descul- 
pamos) neste numero. 

Quanto aos assuntos prometidos, sd 
podemos dizer que eles foram efetivamen- 
te publicados, ainda que com um niimero 
de atraso. N6s prometemos to mar cui da- 
do para que nio ocorram novas enganos. 

Suas criticas foram realmente constru- 
tivas e esperamos recebS-fas, sempre que 
necessario, de nossos leitores, Estamos 
imensamente agradecidos. 

TK e as antenas parab olicas 
Prezados Senhores, 

Fiquei muito interessado com o Que- 
bra-Cabeca da Microhobby numero cinco. 
Tenho 15 anos, gosto muito de eletroni- 
ca, principalrnente de telecomunicacoes. 
Antes de comprar o meu TK-82C, tinha 
um par de walkies-talkies e resolvi fazer 
uma antena para etes. Com a antena que 
f iz , eles ficaram muito potervtes em rece- 
bimento de ondas — eu escutava estacoes 
de todo o mundo. Num sabado a tarde, 
liguei meu radio e recebi sinais muito es- 
tranhos e os gravei. Nao sei o que podem 
ser. 

Agora comprei um TK e gostaria de sa- 
ber como fazer para iigar uma antena ne- 
le. . . Joao Batista Donegd Filho, Mogi 
Guacu, SP. 

Caro Joao Batista, 

Tfnhamos a intencao de colocd-lo em 
contato com Nabor Rosenthal, mas infe- 
lizmente ele viajou para a India e devera 
retomar somente o ano que vem. 

Com relacao a MENSA, pedimo-lhe 
que ieia a resposta a carta do Fabio Appo- 
linaTio. O 



antel 



PROJETOS E MANUTEN$AO 

VIDEO CASSETE E CAMARA 

UMATIC - VHS - BETA 
PAL-M - N-LINHA e NTSC 

MESMO SISTEMA EUROPEU 



Trunscrtcdo de Fllme 
PAL-GeSECAM 

(SERVICO IMEDIATO) 

Video Game e Cartuchos para: 

ATARI -COLECO e ODYSSEY 

Atendemos todo o Brastl 
(via reembolso) 



t'nutu Ltixrrdculi'. &., f 

t. 270-4S.M4 - SP 

. linn FartaUma 1 \S2 -I. 

I S1S-390I -SP 




Horarios: diurno, noturno e 
sabados 

Inscrigdes abertas 

Re vendedor e assistenoia t6cnica 

Q PROLOGICA 

■■ microcomputaoofes 



SYS DEZ 

eomercio e manutenoao de 

computadores ltda. 

Rua das Rosas, 732- Mirandopolis 

CEP. 04048- Tel. 579-8867 



MICROHOBBY 5 



I 



DESGRILANDO 




Reversao do video no CP-200 
e Joystick 

Prezados Senhores, 

Em primeiro lugar, gostaria de parabe- 
niza-los pelo 6timo conteudo da revista 
Microhobby ate o presente momento, 
prtncipalmente pelas dicas e programas 
apresentados, que sao uteis e de aplicacao 
Imediata, como no caso do programa 
PentaSpeed (publicado na revista numero 
4) e que efetivamente traz um bom ganho 
de tempo na gravacao e leitura de pro- 
gramas. 

Em segurKto lugar. gostaria de agrade- 
cer o envio da f ita brinde. Um alerta ape- 
nas com relacao a qualidade da fita utili- 
zada, pois somente ap6s tres diasde mui- 
tas tentativas, consegui carregar correta- 
mente o programa Mansao Maluca, devtdo 
ao fato da fita trancar no cassetee preju- 
dicar a rotacao da mesma no gravador. 

Finalizando, apreciaria receber, caso 
possfvel, duas dicas a respeito de duas 
duvidas: 

A primeira 6 com relacao a uma fita 
TKOREZ Ida Microsoft,adquirida recente- 
mente, Ocorre que, ao rodar a mesmo 
num micro CP-200 da PrclOgica, obtenho 
a tmagem do tabuleiro de xadrez invertida 
na tela. Fui informado que isto ocorre pe- 
lo fato do jogo ter sido desenvolvido pela 
Microsoft para o TK-82C, que trabalha 
com inversao de vi'deo. Desejo saber se e 
poss/vel efetuar uma inversao de vi'deo 
atraves de soft na fita TKDREZ I, semdani- 
f icar a mesma, ou se 6 necessaYio atguma 
adaptacao no micro. 

A segunda 3 com relacao ao uso de 



joysiick. Desejo saber, se no CP-200 e 
possfvel a uttlizacao de joystick, ou se e 
necessarto, tambem, fazer atguma adapta- 
cao no micro. Luiz Fernando Scheffel - 
Porto Alegre, RS. 

Cam Luis Fernando, 

Ficamos gratos por sous eiogios. 

Com relacao as suas duvidas, infeliz- 
mente a solucao menos deseja'vel 6 a unica 
que existe. A reversao do tabuleiro so" po- 
de ser feita com adaptacoes no CP-200. 
Se voce quiser, procure na secio peque- 
nos anuncios as informacSes sobre quern 
pode fazer essa adaptacao para voce*. 
Quanta ao joystick, a Proldgica desenvol- 
ve um especialmente desenhado para o 
CP-200. Procure no revendedor que Ihe 
vendeu o CP-200, provavelmente ele teri 
este modulo. 

Arquivo 

P rex ad os Senhores, 

. . . o numero 3 de Microhobby esta\ 
como ja" me acostumei a constatar, me- 
Ihor que o anterior. Parab6ns! 

Parece que o programa Apagando a Te- 
la (revista numero 3} veio a responder mi- 
nha perguntas sobre as linhas REM. Em 
compensacao tenho novamente duvidas, 
ambas referentes ao programa Arquivo 
(revista numero 3): 

1) Por que as linhas INPUT A sao se- 
guidasdeLET A= INT A? 

2) Por que o programa pede para digi- 
tar qualquer tecla (linha 4890) se ap6s a 
pausa segue um RETURN incondicio- 
nal? E ainda, de novo PAUSE sem POKE? 



Gostei de ver o programa de matema- 
tica financeira (pagina 101, uma id£ia que 
ja me ocorrera, mas ainda nao conseguira 
desenvotver. Como o Flavio Rossini colo- 
cou os pontos e as vfrgulas nos seus devi- 
dos lugares, o que era a parte mais dif fcil, 
mas deixou os "milhoes" na mesma colu- 
na dos "milhares", vai aqui minha modes- 
ta colaboracao: 

O PR INT de safda deveria ser feito nao 
em funcao de "L" mas de "U", que e a 
variavel que "conta" os atgoritmos da par- 
te inteirade "N", ass'-n a linha 1210 seria 
modificada para: 

1210 PRINT "CRS"; TAB {21-U); N$ 

E para contar tamtam os espacos 
ocupados pel os pontos deven'amos acres- 
centar a linha: 

1178 LETU = U + 1 

Obviamente a inscricao "CR $" pode 
ser omitida ou substitui'da por outra. E na 
"TAB (21 -U)" pode ser usado um nume- 
ro menor se quisermos "escrever" mais a 
esquerda. 

Por enquanto e so! . . . Alejandro Luis 
Cobos - Sao Paulo, Capital. 

Caro Alejandro, 

& com imenso prazer que tornamos a 
responder uma carta sua. As perguntas 
que voce nos faz sao respondidas abaixo: 

1, A linha LET A = INT A seguindo 
INPUT A 4 3 pen as para evitar que o pro- 
grama pare se o usuano disrrair-se e digi- 
tar algum numero com digitos nao nuios 
apds a vi'rgufa. 

2) A instrucSo PAUSE 30990 produz 
uma pausa de pouco menos de nove mi- 
nutos. Quando digita-se qualquer tecla, 
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Em meioao verde de um utiode Itapecerica da Serra, 

o Computer Camp £ um acampamento para as crianf as de nossa epoca. 

AI4m de muito esporie <? fazer, seu fi/rio enira em contMo 

com varios modetos de mk rocomputadores e di seu* primeiras passos 

nesta tecno/ogia do fuluro. 



Cada acampante recebe uma camiseta Computer Camp, 

material didatico completo e ainda 

concorre a uma assinatura da Revista Microhobby e a um TK. 
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men os BREAK, a pausa 6 interrompida 
e o programs continue a rodar. Experi- 
ments substituir as linhas: 



*bbb pause aeneie 
por: 

*«*>• If INf<eV*-""THCN GOTO 490O 

Com relacio ao fa to de Pauje nao estar 
acompanhado de POKE 16497,255 temos 
a diier que nSo hi nenhum problema. 
Apenas os primeiros micros do TK neces- 
sitam disso. 

Aproveitamos, tambtim, para agradecer 
as sugestoes ao programa do artigo Mate- 
matica Financsira em Basic de Flavio 
Rossini. 



Hexamem 

Prezadot Sen ho res, 

Possuo um TK-85 de 48 K e venho 
acompanhando com grande interesse as 
aulas de Assembly na revista Microhobby, 
sendo que, na numero 4 (aula numero 3) 
deparei-me com um "grilo" na execucao 
do programa Hexamem do qual tirei uma 
tistagem e copias da tela para que V.Sas. 
me expliquem o que ocorreu. 

Primeiramente, para rodar o seu pro- 



grama tive que "enxertar" a linha 102 
SCROLL, pois antes surgia a indicacao da 
tela cheia. 

Como V.Sas. poderao observar, o pro- 
grama foi rodado com o exernplo da licao 
e ao fazer o comando RUN 3800, o resul- 
tado foi diferente do que esta indicado e 
era esperado, por exernplo, a mem6ria 
30000 que deveria registrar 164eregis- 
frou 68. 

Pareoe-me que nao houve erro na digi 
tacao do programa, e isso me deixou "gri- 
lado". Gostaria de que verificasse o que 
ocorreu, escrevendo-me ou explicando 
o fato na proxtrna licao. 

Gostaria de saber tambem o que faz 
as linhas 80 e 85. Fiz um teste dando en- 
trada em A$ = "XS" e meu programa 
saiu do ar, 

Na aula numero 2 (revista numero 3) 
ffiz-se referenda a um Mvro (". . , 16 K pa- 
ra que se possa executar os programas 
mais interessantes deste livro. . ."I. Gos- 
taria de saber se voo§s jd o editaram e, 
caso positivo, como posso adquin'-lo. 

Agradeco-lhe antecipadamente, e nesta 
oportunidade valho-me do ensejo para pa- 
rabeniza-los pelo excelente ni'vel de en- 
sino e pela excelente dida'tica de suas 
aulas publicadas. Joaquim J. Mariano, 
Goiania, GO. 



Caro Joaquim, 

Cremos que vooi teve que introduzir a 
linha 102 SCROLL por wro de dtgitacao, 
pois na linha 60 j4 existe o comando 
SCROLL. O mesmo deve ter ocorrido 
quando vooi introduziu os digit os A4 (he- 
xadecimal j. O cddigo 68 que vod obteve 
na memdria 30000 corresponds a 44 (em 
hexadecimal) e 4 provdvel que vod tenha 
digitado 44 ao inve's de A4. 

As linhas 80 e 85 (e tamtam 139, 135, 
140 e 145) tern sua utitidade esclarecida 
na licao numero 4 do curso de Assembly 
fMicrohobby numero 5), De qualquer for- 
ma, seu programa nao deveria ter "safdo 
do ar" como aconteceu. Novamente, vooS 
deve ter digitado algo errado numa das li- 
nhas citadas acima. Se rids estivermos en- 
ganados, entao seu TK-85 esta com de- 
feito. 

livro referido 6 o Linguagem de Ma- 
quina para o TK - volume I" que ja foi 
edit a do. Voce pode adquirNo enviando 
um cheque nominal e cruzado ou um vale 
postal no valor de Cr$ 8.000 J00 para 
Micromega P.M.D. Ltda. Cx, Portal 
54121, CEP 05096 - Sao Paulo, SP. 
Junto ao cheque, anexe seu no me, ende- 
reco completo e o motivo (livro) pelo 
qual voc4 o esta enviando. _^ 



1 . -sM 
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mm 



ANHEMBI83 
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VOCl PODEMODIFICA. 



SUPER CP 200 

Teclado numenco e funcoes com auto-shift 
Chaves de inversao de video e Bip 
Auto repeticaoe Auio Function 
Said as para 2 Joysticks 

CORES EALTARESOLUQAO 

Para todos os rrnctos de logico smclai' 



PUT ADO R 
JOYSTICK 

- Com 6 luncBes e muito mats pratica 
CMS 

_ Calibtador e moduladoi de final para a lenura de progiamas 
em fnas K7 

POLISOFT 

— .logos e aphcat'uns tie atta quahdade ■ , . , 



1'MAIORES INFORMACOES NAS LOJAS ESPECIALIZADAS OU ESCREVENDO PARA • 

POLIMICRO 

^V,.'. V '' : . ' \ Av. Andrade Neves. 1254 - 131 DO - Campinas - S.P - Ftw it)13?l S 808! ."--^ 
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Tradufdes para o TK 

P re z ad os Sen bores, 

. . . gostaria que me orientassem na 
transcricao dos comandos (t undoes subli- 
nhadas na xerox anexa) para o Basic do 
TK-85. 

. . . 20 1 = 

60 DIM V(3},X(3),P{3), R(3,3) 

7* MAT V = ZER 

89 MAT X = ZER 

90 MAT P = ZER 
100 MAT R= ZER 

119 DATA 1,2,2.3,3,1,1,3,3,2,2,1.2,3, 
3,1,1,2.0 

120 PRINT "WELLCOME TO 'WAR 3'. 
TWO OR THREE HUMANS MAY 
PLAY!" 

130 PRINT "DO YOU WISH SOME 
ASSISTANCE";. . . 

. . . 290FORJ = 1 TON1 

300 READ A,B 

310 PRINT "DISTANCE" (FT.) "; 
A;" TO"; B; 

320 INPUT R |A,B) 

330 R{B,A) = R(A,B) 

340 NEXT J 

350 PRINT" " 

360 RESTORE 

370 IF N = 2THEN460 

380 FOR J = 1 TON 



390 READ A,e,C,D,E,F 

400 IF R (A,B> < R(C,D) + R{E,F) 
THEN 440 

410 PRINT "ERROR - ILLEGAL 
TRIANGLE. RE-ENTER RANGES." 

420 RESTORE 

430 GOTO 290 

440 NEXT J. .. 

Grato e parabens. Paulo Roberto B. 
Bergo, Sao Jose dos Campos, SP. 

Cars Paulo Roberto, 

Ficamos muito gratos pelos sens elo- 
gios, pots 4 motivo de orgulho para nds, 
sabermos que estamos agradando. 

Quando as informacoes sobre a$ 
TPfak's, vocS as encontrari nos numeros 
an ter lores. 

As tinhas que voce sublinhou em seu 
programs sab de fa" til adaptafio para o 
BasicTK e se voce conseguir traduzir 
completamente o programa, gostar tamos 
que o enviasse para ser publicado em nos- 
sa revista. 

Voce" sublinhou as linhas: 

70 MATV = ZER 

80 MAT X = ZER 

90 MAT P = ZER 

1 10 DA TA 1 22,3,3, t , 1,3,322, 1 2,3, 
3,1,12,0 



AI4m dessas linhas, teremos qua tradu- 
zir tambe'm as que seguem: 

60 DIM V(3), X(3t, P{3), R(3,3) 

t0Q MATR = ZER 

300 READ A,B 

360 RESTORE 

390 READ A,B,C,D,E,F 

420 RESTORE 

A adaptacio para o TK, fica assim: 



ee 


DIM 


U<31 




SI 


DIM 


X (31 




62 


DIM 


P(3> 




63 


DIM 


R<3,3 




e* 


FOR 


Z«l TO 3 


ts 


Utl 


v cZ) -ti 


66 


Lb r 


X <T) =U(Z) 


67 


Lt 1 


P (Z) =VfZ> 


76 


FOR 


Y=l TO 3 


SO 


LET 


a rz.v; 


=v izi 


o© 


jimrr v 




Kit; 


HBXT z 




HO 


Ltl 


[>*=■■ iaa33H33a2i233iiaei 


as 5 


LETT 


:'-i 




300 


LETT 


B=Uf)L 


fit. <Z1 


3Q3 


Ltl 


B=UHL. 


D| Ciill 


3»5 


Lt r 


2>Z11 




zt.a 


LEI 


1=1 




390 


L£T 


B=LIRL 


D$ !Z) 


3U1 


Ltl 


P=UflL 


Di <Z + 1> 


39^» 


LET 


C=UFM- 


Dt IZ*S1 


393 


LET 


D =L'RL 


Of IZ + 31 


39* 


Lt [ 


EiWIL 


D*; vz + &> 


39S 


LET 


F-VRL 


b * r v +E ) 


3BS 


LET 


Z=Z+6 




t-sa 


LET 


Z^l 





Esperamos que voce tenha €xito em 
seu empreendimento e aguardamos ansio- 
samente os resuttados. O 



ALEM DE MICROCOMPUTADORES 

VOCE ENCONTRA AMIGOS! 




MELHOHES PRECOS DO MERCADO. 
MELHORES CONDUCES DE 

PAGAMENTO. 
DEMONSTRACAO DE TODOS OS 
EQUIPAMENTOS. 
ASSISTENCIA TECNICA PERMANENTE. 
E TEM MAIS; 

DURANTE A MANUTENCAO VOCE 
NAO FICA SEM EOUIPAMENTO! 



Computadores 
Perifericos 
Suprimentos 
Video-Games 
Video-Cassetes 
Desenvolvimento de 
Softwares Aplicativos 
Basic I 
Basic II 
Cursos Especiais 



COMPUTE 



SISTEMAS E 
COMPUTADORES LTDA. 



RUA ESTADOS UNI DOS, 2141 - Cep 01427 
{Prox. Av. Reboucas) 

Tel.: 852-8533 

Sao Paulo - SP 
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DICAS 

Muitas vezes vamos digitar urn progra- 
ms em linguagem de miquina e se torna 
necessaYio criar inicialmente, uma linha 
REM com muitos pontos, o que e um tan- 
to quanto trabalhoso. 

A dica deste mes £ um programa capaz 
de criar esta linha REM, evitando assim, 
que voofi fiquedigitando "n" pontos. . . 

Inicialmente digite o programa 1 (a li- 
nha REM deve ter 96 pontos). 



1 EDRHD-tD HND3IRNO 
?rT77XC"3BN 



•F ewmo mar _ ■■» 
input i_print 











2 FOR I.1S5H TO 

3 5CBOLL 

4. POINT X; ". . •'; 
3 INPUT X 
e PRINT X 

7 POKE I , X 
B NEXT I 


19099 

J 



PROCRRHR 1 



Aperte a tecla RUN e digite os nume- 
ros da listagem decimal a seguir: 



1851*. 


.9 


1BM5. 


.9 


L6S16. 


. 283 


16S17. 


.39 


16319. 


. IB 


16319. 


.1 


16SM. 


.6 


1693 1 . 


.9 


165S2. 


,*a 


16633 . 


. 139 


1653* . 


.64 


16533, 


.339 


i6sae. 


.9 


16537 . 


.60 


lesaa. 


. 77 


16529. 


-*3 


155 3U, 


.*1 


16331. 


.6* 


16533. 


.9 


1B53.1. 


.3* 


1633*. 


. *1 


16333 . 


.9* 


16636- 


.33 


16337. 


. ia 


19338. 


.6* 


16339. 


.63 


163*9. 
169*3. 


.9 


163+1 . 


.9* 


.33 


163*3. 


.96 


163**. 


.313 


165*3. 


.239 


163*6. 


.9 


163*7. 


.335 


163*6. 


. 11* 


163*9. 


.43 


i&ssa . 


. IIS 


16331. 


.33 


16969. 


.36 


16393. 


.61 


1653 4. . 


. *• 


16S5S . 


.3 


16336. 


.289 


18357. 


.3* 


163 SO. 


. 238 


1853 3. 


■ 223 


16569. 


■ 229 


16561. 


. 1 


issea. 


.236 


1 656 3 . 


.6* 


1636*. 


. 167 


16363. 


.337 


163 66 . 


.66 


1636 7. 


.6« 


16568 . 


.77 


16369. 


.223 


16379. 


.337 


16571 . 


.16* 


1397a, 


.33 


16373. 


.337 


1637*. 


.6* 


16373. 


.9* 


16670 . 


■ a 


16377. 


.33 


16376 . 


.3* 


165 79. 


.a 


ISM*. 


.33 


19901. 


. 193 


16362. 


.3 


16333. 


.3 


1636* . 


■ 113 


16999 . 


.39 


16366. 


. 112 


16997. 


.39 


16366. 


.0* 


16309. 


.S3* 


UBM. 


.11 


16391. 


. 11 


1659 3 . 


.33 


16993. 


. 17 


1639* . 


. 1 


16399 . 


.• 


16598. 


. 333 


16597. 


.39 


19999 . 


.333 


10999. 


.9 + 


1669*. 


.37 


1669 1 . 


.337 


lBSiS. 


.173 


169*3. 


.3+ 


166** ■ 


.117 


16693 . 


.sa 


166*6 . 


.3*9 


1669 7 . 


.4.3 


16B»6. 


.IS 


16699. 


■ 891 



l.ISTRGCM OECXMRL 

Ao terminar de digitar a listagem, peca 
ao computador para mostrar a listagem, 
por meto de tecla LIST. A linha 1 REM 
cont^m vaVios caracteres que representam 
programa em linguagem de maquina, 
que criara" a sua linha REM. 



rH3T ■ LUX3T RMOH 003LHJ) PI7-7 L PR 
INT 003U8 BS 3TOP hmoo 70"7HT ^™ 
177 7J REH ^^71* POR ; FOR O. SO 

SUB 9to"*0l H P-TTRN 

3 POR I- 1631* TO 16699 

3 SCROLL. 

* PRINT I; - . . - : 

3 INPUT X 

« PRINT X 

7 POKE I , X 

9 NEXT X 



Retire as linhas 2 a 8 e digite as novas 
linhas do programa 2. 



1 REM 



LN 7f* 



' Eajfti 



WO FR3T ml 



mpOw «DRND3tRNOy«^7?STR| FOR •. 

ron 7r?77xc*SGN * input lprint 

frst ■ U.I5T RNOCJ GOSUB PI?T LPR 
INT COSUB B5 STOP RNDO 70*7RT ■■■ 
">7">70 REM ""7)* FOR ; POR O. OO 
SUO KfaLN FTTRN 

3 PRINT "COMPRIMCKTO OR REM: " 

4. INPUT C 

3 PRINT C 

6 PRUSE 69 

7 POKE 1651*,C-3S6*INT IC/258 

9 POKE 16319, INT 1C/2B6! 

9 RRNO USR 16519 
19 CIS 

11 LIST a 



PBOCRHHH 3 

Vamos ver como este programa fun 
Ciona? 

Ponha o programa para funcionar. A 
seguir, digite o comprimento que a sua li- 
nha REM deveria ter e, num piscar de 
othos, o programa gera uma linha 2 REM, 
com o numero de pontos que voce dese- 
java. 



1 HEM - t-N 7T"/ E4VP.NO FRST m 1 
■»eORNO»6I>«N(>5£RMDY - '>7' , STn* FOR - 

FOR 7 F -77XC~5GN f INPUT LPRINT 

r«ST ■ LLIST HMOS G05UB PI"*"* LPR 

IKT S05UB BJS STOP HNDO 7Q »JflT ^™ 

FOR O. GO 



'7-»70 REM "7)" FOp 

3UB BJCOLN FTTRN 



a rem 

3 PR INT 



"COtiPRIHCNTO OP REM: 



* INPUT C 

3 PRINT C 

6 PHU5E 69 

7 POKE 1661* ,C -336 4 INT (I 

6 POKE 16B1S,INT IC/JMI 

9 RHNO U5R 165 16 

19 CLS 

ii njT a 



Agora que voce ja 1 testou o programa 2 
e sabe como ele funciona, retire a linha 2 
e grave o programa em uma fita de boa 
qualidade. 

E toda vez que vocS for digitar um 
programa em linguagem de mSquina mui- 
to longo, carregue este programa e digite 
o numero de pontos que precisar, Depois, 
4 so retirar as linhas desnecessirias ao pro- 
grama que voce vai digitar. O 



A 

LINHA 

REM 



Nancy Miti* Ariga 
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PEQUENOS 
ANUNCIOS 



— TROCO Programas nacionais e im- 
portados (recuso quatquer pagamento em 
dinheiro} para o TK-82, 83 e 85. Tratar 
com Etington pela Caixa Postal 39003 - 
CEP 21490. 

— VENDO diversos solos em lingua- 
gem de maquina, para o TK-82C eTK-85. 
Tratar com Marco Antonio pelo tel.: 
225-7507 - Belo Horizonte - MG. 

— TROCO Programs* (jogosl e ide'ias 
para o TK. Tratar com Jos6 Augusto S. de 
Campos. Av. Dr. Joao S. Alves de Carva- 
Iho, n° 530 - Jardim Ipiranga - Porto 
Alegre - RS - CEP: 90000. Mandar da- 
dos pessoais e programas. 

— VENDO super TK com high speed, 

gravaeao independente de dados, inversao 
de video por soft ou chave, controls re- 
moto do grav3dor (soft ou chave), tecla 
reset alta resolucao, 16K e funcao slow, 
junto com programas em linguagem de 
maquina. Jogose aplicativos. Informacoes 
com Cesar pelo telefone: 201-8409 (nos 
fins de semana). 



-PROCURO LEITOR que tenha es- 
quema da interface e som para o TK, ou 
alguem que o construa. Esquemas e/ou 
propostas para Paulo A. Fessel. R. Gene- 
ral Gois Monteiro, 1 13 — Piracicaba — SP. 
Tambem procuro pessoas que ten ham o 
n° 1 da Microhobby, para enviar-me duas 
c6pias xerox no mesmo endereco. 

- VENDO TK-85 com alta resolucao 
jogos, joystick, tudo por Cr$ 250.000,00. 
TrSs meses de uso. Tratar com Edson. 
CEP: 04437. R. Manoel Vaz, 265 - Jd. 
Consorcio - Sto. Amaro,-SP. 

- VENDO ou TROCO programas para 
os similares de CP 200, tais como: TK-82, 
83, 85, e outros , aos interessados 
escrever para: Adelson de Carvalho A. Jr. 
Rua da Hora, 465 - apto, 102-B - Reci- 
fe. PE- CEP: 50000. 

-Making The Most of Your ZX-81. 
Getting Acquainted with your ZX-81. 
Tratar com Edison — Fone: 235-3479. 
Hor. Comercial - Cx. Postal 7252 - CEP: 
01031 -SP. 




-COMPRO Interface para maquina 
eletrica (datilografia-impressora). Propos- 
tas para Roberto de A. Santos. Rua U- 
ruguai, 205, apto. 803 - Tijuca, RJ - 
CEP: 20510. 

— Estou interessado em comprar uma 
TK-Printer usada. Comunicar-se com 
Rubens Maus — Rua Luiz Dallagassa, 208 
Vila Haver - CEP: 80000- Curttiba, PR. 

— TROCO Programas para Micros 
TK-82C e similares. Possuo o Frogger, 
Maz6gs, Snake Bite, Galaxy e outros. Tra- 
tar pelo tel.: 8534717 (c/ Sergio) - Sao 
Paulo - SP. 

— Desejo corresponded me jom usua- 
rios de micros similares ao TK82-C resi- 
dentes em Blumenau, para TROCA de 
programas. Escrever para Zoltan Bergman 
- Cx. Postal 2172 - CEP 89100 - 
BLUMENAU, SC. 




LANQAMENTO 



Terminal com 

teclado profissional 
tecnologia ITT 
compatfvel com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
tactil com todas as 
funcoes gravadas na 
pr6pria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligacoes instaladas. 
Acompanha manual para montagem com opeoes 
de fixacao da fonte infernamente ou usando 
externamente. 

Saidas: Expansao membria/impressora 
Fonte externa ou interna 

Gravacao EAR/MIC 
Chave liga/Desiiga 
Chave 110/220 Vac 




Joystick 

INTER-COL IND. E COM. 

Depto. Vendas - Av. Alda, 605 - 
fone: 456.3011 



LTDA. 

Diadema (Centra) 



Os pedidos reglstrados no mes de Janeiro , terSo preco de 
langamento de Crt 87.000,00 

Linha d» Fabricate: 

Chavatt comutadoras 

Taclas e tec lartas 3emi prolissioflab 
Ttclai a taclaoos profusiontJs 
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Micros e Minis 
Nacionais 

Sistemas Aplicativos 
Perifericos, 



EquipamentO! 
ek ftr 



Moveis, etc. 



s, 



KYW INFORMATICA 



Rua da Lapa. 180 gr. 1.108/1.110- CEP 20.021 
Telex: (021) 30980 - Rio de Janeiro RJ 



telefone: (021) 



252-3527 





LJ 

CUmB K RPEflHIQUIKIlTD 



MAIS SUCESSO PARA VOCE! 



Comece uma nova fase na sua vida profissional. 

Os CUR SOS CEDM levam ate voce o mais modern o ensino 

tecnico programado e desenvolvido no Pais, 



CURSODtBSmdNKA 
£ MKROPROCESSADORES 



. vUKdV Ut: 




cursode 

PROGRAMACto m BASIC 



Este CURSO, especial men te programado. olerece os 
fundamentos de Linguagam de Programaeao que domina o unrverso 
dos mitrccomputadores. Dinamico e atorangente, ensma desde a BASH 
basico ate □ BASIC maisavancado, inclui'ndo nocoes basicas sobre 
Mampulacao de Arquivos, Tecnicas de Programaeao. Sistemas de 
Process amen lo de Dados, Teleprocessamento, Muhipragramaeaoe 
Tecnicas em Linguagem de Maquina, que proporcionam um grande 
conhecimento em toda a area de Processamento de Dados 




CEDM 1 KIT de Ferramentas. CEDM 2 KIT Fonie de AlimentacSa 
+ 1515/1A. CEDM-3 ■ KIT Placa Experimental 
CEDM 4 KIT de Componentes, CEDM & KIT Pre-amplificador 
Estereo CEDM 6 KIT Amplidcador Estereo 40w, 



Voce mMmo pode desanvolvar um ritmo proprio da rntudo. A lin- 
guagem simplificada do* CURSOS CEDM permlte aprendizado fScil. E 
para esclarecer qualquer diivida, a CEDM col oca a sua disposicSa uma 
equips da professor** tarn pre rnulto bam acessorada. Alern disso, voca 
recabe KITS preparados para os saut exercfcios praticos. 

Agil, moderno a perfeitamente adaquado a nossa raalidade, OS CUR- 
SOS CEDM por cor respondentia gararttam oondi^oos ideais para o »u 
aperfeicoamenw profissional. 



Voce tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucot diat vocfi recebe nossos catalogos de apresantagSo. 



KIT CEDM ZBO 

BASIC Ciemltico. 

KIT CEDM ZBO 

BASIC Simples. 

Gabarito de Fluxograma 

E-4. KIT CEDM SOFTWARE 




L^PPiM Avanida Sao Paulo. 718 ■ Fone (0432) 23-9674. 
i_.l_.l_H I CAIXA POSTAL 1642 CEP 86100- Londnns . PR 
CURSO DE APERFEICOAMENTO POR COR RESPONDED CIA 

Sollcito o malt rapido poatlval informafoes sem compromltto sobre o 

CURSO da 

Noma 

Rua • 

Cidade 

Bairro CEP . . . 



CURSO DE (BOSaOED TK 
aula 7 




VARIAVEIS INDEXADAS 
MATRIZES - FLAGS 

Na aula numero 1 introduzimos a pa- 
lavra-chave LET, que associava a uma va- 
riavel numerica um "lugar" na memoria. 
Entretanto, existem ocasi5es em que e de- 
sejavel armazenar varios valores para uma 
"mesma" variavel, distinguindo seus dife- 
rentes valores atrav^s de t'ndices entre pa- 
renteses; seria como se construi'ssemos 
uma tabela na mem6ria, a qual denomina- 
mos matriz. Assim, temosa palavra-chave 
DIM (tecla D) cuja funcao e reservar espa- 
co na mem6ria para os valores que dese- 
jamos colocar, atribuindo inicialmente va- 
lor zero a todos eles. Experiments entao 
o seguinte programa; 



10 


suou 






so 


KIN X<3> 






;ia 


FOR 1=1 TO 


fi 




4B 


PSIWT "XC 


I . 


■■!-■■; XI II 


5a 


NEXT I 






6B 


PRINT 






TO 


FOR 1-1 TO 


H 




SB 


PRINT "XC 


i; 


■■ 1 ml " 


99 


INPUT Xtl> 






ltK) 


PRINT BT If5, 


t, X III 


lie 


N£XT I 







Na instrucao 20 reservamos espapo na 
mem6ria para cinco valores deX coloean- 
do inicialmente valor (zero) para os 
mesmos; a seguir, usando INPUT, associa- 
mos valores aos vaYios X's e usando um 
"pequeno truque" na linha 108 escreve- 
mos, na tela, os niimeros colocados. 

Note que ha diferenca de significado 
dos indices: com a palavra-chave DIM ele~- 
indica o tamanho miximo da tabela; nas 
demais instrucoes, ele indica aposiqSo na 
tabela. 

que acontece se, no programa ante- 
rior, colocamos a linha: 



95 DIM X(5) 



Infelizmente no Basic-TK as variaveis 
indexadas tSm uma limitacao: ao contra- 
rio das variaveis normals, seu "none" po- 
de ter apenas uma letra; assim, por exem- 
plo, o seguinte comando e invalido: 



DIM PH2IM) 



Em contrapartida, 6 possi'vel fazer ma- 
trizes (TABELAS) com mais de uma di- 
mensao (ate 255 dimensoes). Por exem- 
plo, duas dimensoes sao facilmente ima- 
ginaveis se pensarmos em linhas e colunas. 

Por exemplo: 



IB 


OIH OI3.il 


BO 


FOR Iml TO 3 


3B 


FOR Jwl TO 4 


4B 


print bt 4,*; ■«<■•; i; - ,";j; - 


= 7" 




SB 


INPUT fit I,. Jl 


60 


PRINT BT 4 , 1] , fl H ,J! 


7B 


PBU5E 90 


ee 


OLS 


se 


NEXT J 


IBB 


NEXT I 


lie 
Dfi" 

12B 


POINT TBS 4; "HBTBIZ CSCOtXX 


PRINT 


13S 


FOR 1*1 TO 3 


14.0 


FOR 0=1 TO * 


isa 


PRINT BT S4ItS,4IJ,AlI,j; 


IfcO 


NEXT U 


176 


NEXT I 
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Repare que na linha 10 reservamos es- 
paco para uma tabela de tres linhas e qua- 
tro colunas, ou seja, para 3x4 = 12 varia- 
veis com valor intcial zero. 

A seguir, voce" deve fornecer os valores 
para cada variavel (INPUT) e ftnalmente a 
matriz e colocada na tela. 

Note que, estamos usando um loop 
dentro de outro loop: desta maneira, o 
loop interno seri repetido tantas vezes 
quantas forem indicadas pelo loop exfer- 
no. Note que os NEXT's devem aparecer 
em ordem inversa aos FORs, ou seja: 
r-FOR I = . . . 
rFORJ = ... 
LNEXTJ 
L-NEXTI 

Repare no uso da instrucao AT para a 
formatacao da sa fda na linha 1 50; com es- 



Piarkiigi Piani 

Flavio Rossini 

ta formatacao, qual o numero maximo de 
algarismos que posso usar para cada va 
lor? i. possi'vel aumenta-lo? Voce" saberia 
"imaginar" uma matriz com trSs ou mais 
dimensoes? 

Nocao de FLAG: 
utilizacao na ordenacao 
de niimeros * 

Denominamos FLAG a uma variivet 
auxiliar cuja funcao e indicar a ocorren- 
cia ou nao de determinada condicao du- 
rante a execucao de um programa. Uma 
utilizacao pratica para este tipo de varia- 
vel, esta na ajuda em descobrir "erros" 
em programas razoavelmente complica- 
dos, principalmente aqueles com um gran- 
de numero de instrucoes IF. Nestes pro- 
gramas, a quantidade de "caminhos" pos- 
si'veis f5 muito grande, o que dificuita a 
analise do mesmo, "passo a passo", con- 
forme fluxogramaao lado. 

Que correspondea: 



IB SLOU 

SB PRINT BT 4.,3; '•OUftNTOS NUHER 
OS DEUO ORDENHR"?HFIX. C221 - 

3B INPUT M 

4B DIM N(N1 

45 CL3 

SB FOR 1m1 TO N 

6B PRINT BT 4,4; "N*"; I; "1 -■»" 

70 INPUT N t It 

SB NEXT I 

9B FR3T 

IBB CIS 

IBS LET F-« 

lie FOR I"l TO N-l 

ISO IF Nil) (-Ntltll THEN GOTO 1 
7B 

13B LET F«i 

1*B LET B«N III 

158 LET HIII.Ntl.ll 

16B LET H (1+11 -B 

17B NEXT I 

lOB IF F-l THEN SOTO tOO 

190 5LDU 

2813 FOR 1-1 TO N 

S10 PRINT VflB 3;N(I) 

SSB NEXT I 



Repare o uso do DIM (linha 20) para 
reservar espaco na memdria para 22 nu- 
meros que deverao ser fornecidos ao com- 
putador atraves do INPUT na linha 7B. 
Note a mudanca de velocidades de 
SLOW para FAST e, a seguir pars SLOW; 




} 



w 



p O-™-'^ 



r ^ ' ^ 




RESPOSTAS DOS EXERCICIOS 
DOCURSO DE BASIC 

A partir deste numero de Micro* 
hobby passaremos a pub Hear as, respos- 
tas do Cur so de Basic continuamente. 
Nesta edigao, voce's terao as respostas 
dos exercicios desde o initio, ou seja, 
a partir da re vista numero dois are' a 
ultima edicao, numero fit. 

As respostas dos exercicios desta 
edicao, pubiicaremos na prdxima re- 
vista (oito) de Microhobby. Assim 
sendo, nossds feitores ficarao sempre 
em dia com o Basic. 



Aula 2 



IB LET MOPE nO 

SC PRINT "HOPE ■ 

QB PRINT "MOPE * 

4.B PRINT "3IHOPE 

SB PRINT "S+7 - ' 

68 SOTO SO 



", MOPE 

3 ■ "jMUPK+a 
■ "jSiHOPE 
, 3*7 




FLUXOGRAMA 



isto porque a tela nao e necessaria en- 
quanto o computador faz a "ordenacao". 
Note tambem que o loop de ordenacao 
faz o contador I variar de i ate N— 1, pois 
caso contrario, ao chegar no ultimo nu- 
mero, inamos obter um erro (Por que?). 

Finalmente, repare no uso da variSvel 
B como auxiliar para fazer as trocas e o 
uso do mesmo nome (N) para a variave! 
indexada, e para a vari^vel que indica 
quantos numeros devem ser ordenados; 
elas sao distinguidas pelo computador, 
pois esta ultima nao possui indices en- 
tre parenteses. 

Para finalizar a aula, apenas uma obser- 
vacao quanto aos mdices: eles devem ser 
sempre numeros inteiros e positives. 

Exercicios: 

LAItere o ultimo programa da aula 
para que imprima uiria mensagem de erro 
se na linha 30 for introduzido urn numero 
maior que 22. Alem disso, faca com que 
ele coloque os numeros em ordem decres- 
cente. 

2. Elabore urn programa que, dada 
uma matriz bidimensional quadrada (n9 
de linhas = np de colunas) calcule seu de- 
term inante. 

3. Fa$a um programa que seja capaz de 
"ler" duas matrizes de duas dimensoes e 
calcule a soma e diferenca "imprimindo" 
na tela a matriz-resultado. O 



21 a — Ele imprime o valor de A que e igual a 
5, e o valor de G que e iguat a 1 0, 
Apesar do valor de 8 nao estar no programa. 

ale esta na mem6ria do computador. 

b - O micro acusard o erro na linha 200, 
pois a linha 150 "Mmpou" a mem6ria do micro. 

c — Se for acrescentada a linha 400 NEW. o 
micro imprimis os valores de A a B e limpara 
o programa da mem6ria 



IB p.h«c> 

£B PBINT ■■LPTERIH" 
B IS; "K-,TBB SB. a 
3B FDR f>-l TO 13 
*0 LET T.JB+S* C INT IHHDO)) 

sb phint "udgo ";r;trb t; -X' 
t-a next r 



;thb ie; i;t» 



IB LET tilO 

20 let r-ie 

30 PHIKT RT I,F;"#" 
<J LET F • F ♦ 1 

*s if i*<32 Then goto 3» 

se LET I-I + l 

53 LET F-B 

68 SOTO OB 
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Aula 6 



ib fop. a-e to ai 
se PRINT TAB R;P. 
3B NEXT R 



2i m 



IB FOR P*l TO 21 
90 PRINT TRB R; "| 
30 NEXT R 



3) a 



1* INPUT N 

SB IF K<0 OR HllIMT N THEN COT 
60 

3« LET M«l 

3S LET I-N 

10 LET MiMtl 

SB LET I » I - i 

OS IF 1=1 THEM PRINT "FHT. " ; M 

;■'■";« 

70 IF I»l THEN STOP 

75 GOTO *0 

OB PRINT "NUMERO NflO HCEITO- 

99 GOTO IB 



IB P.RND 

£•3 PRIMT "LOTEPIB" 

IB FOR fllrl TO 13 

*e PRINT INT IfitlOIJ) *1 

SB NEXT P 



2! 



1U RRND 

£8 PRINT "UOTERIR" 

oo let n-i 

40 FOR B-l TO 13 

SB LET C»INT (RNO»3) *1 

fee PBINT "UOOO "i«,"COLUHfl 

TB LET P)>n+1 

ea next t 



"jC 



IB INPUT N 

aa if H-a«iNT ck/2> -e then pri 

NT Hi " E* PAR" 

ow ir N-aiiMT (N^ai -l then pri 

NT N; " E* IMPflR" 



IB INPUT N 

SB ir N-6JINT fN/6> ~B THEN PRI 
NT N; " E" MOLT1PLO DC S" 

38 IF N-etINT (N/BI !>a THEN PR 
INT N; " NRO C* HULTIPLO t>E 0" „ 
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MINICALC 



Atualmente no mercado estao a venda 
uma grande variedade de Visicalcs, que 
sao plan i I has eletrfinicas que possibilitam 
a manipulaeao de informacoes com maior 
facilidade e ocupando o men or espaco na 
mem6ria do computador, 

Apresentamos aqui um Minicalc, que e 
uma reducao dos Visicalcs que estao a 
venda, Este Minicalc toi planejado para o 
controle de um orgamento domestico 
(calcula o total das despesas e o saldo 
do mes). 

Para iniciar o programa (veja programa 
na pagina seguinte), digite RUN e apare- 
cera na tela uma parte da planilha. Impor- 
tant^: na tela aparecerao sempre as colu- 
nas das Contas de dois meses. 




EWTRRDn DC DRDDS 

■•a- 



»,1 



A planilha esta divtdida ern varias ce- 
lulas, que estao organizadas por coorde- 
nadas (coluna, linha). Por exemplo: a con- 
ta ENTRADA corresponde ao dado (0,1 1; 
a conta LUZ (0,4), o mfis de JANEIRO 
corresponde a coluna 1 , e assim por 
diante. 

Primeiramente, digite as contas nas oe- 
lulas da coluna "0". Sua planilha ficara 
assim: 
14 MICROHOBBY 










ENTRRDH 




SfH-Q.fiMT . 
TOT.eNTR. 

LUZ 


J 


noun 

TELEFONE 


1 


FM-IMCNT, 
TOT.DE5P. 


i 


5HLDO 



Nancy Mitie Ariga 



Caso haja alguma alteracao a ser feita 
(linha 410 a 530) digite AL e N.L., em 
seguida o mes em que sera feita a altera- 
cao e a linha a ser alterada. Depois, in- 
rroduza o novo valor desta celula. Por 
exemplo mes 1 , linha 6 para 6000 



COMBNDO ?<EN,flL,CH,I>X,EX,IM,SRt 

Apos o preenchimento desta coluna, 
digite o comando desejado. 
EN — entrada de dados 
AL - alteracao 
CA — calculo do saldo do m6s 
DX — move a planilha para a direita 
EX — move a planilha para a esquerda 
IM • imprime as despesas do mes 
SA — grava o programa e os dados da 
planilha 

Para a EMTRADA DE DADOS (tinha 
60 a 220} digite EN e MEW LINE e de- 
pots a mes. Digite apenas os valores da en- 
trada do m§s e as despesas (luz, agua, tele- 
fone, alimentacao). Para digitar as outras 
celulas basta apertar a tecia NEW LINE, 
pois elas serao preenchidas na rotina de 
calculo. 



: EKTHfl^rt 


inaow 


SnLD.BNT. 


TDT.E KITB . 


LUZ 


S000 


neuR 


tcoe 


TtLEPOHE 


sees 


BLIMBNT. 


j)900B 


: TOT „ C;5P . 


: SBLOO 



HE5i t LINrtfl: 

■■scae" 



Sua planilha ficara assim: 



'. EhfTRflDO 


iBoaoo 


! SRLD.RNT. 


: TOT . EHTR ■ 


: LUZ 


SB3B 


: neuFi 


4000 


:TELErOHE 


scje 


: BLlMEhfT . 


seaoa 


I TOT.DESP. 


! SOLDO 





EMTRRDH 


leasee 


SOLO . HKT . 


TOT . ENTW . 


LUZ 


B«M 


Maim 


*ee« 


TELEfOME 


seea 


BLIMENT. 


SHOBB 


TOT . QESP . 




SOLDO 





COMfiNOO 

•■a- 



'<EN,ffL ,CB,Od , EX, IH, SR> 



cohrnoo "»teN,ftL,en,r>x,ex, ih.sbj 



Quando todos os dados estiverem cor- 
retos, digite CA e N.L. Esta rotina de 
CALCULO (linha 720 a 840) coloca o sal- 
do do m§s anterior no saldo anterior des- 
te mes (linha 760); soma a entrada do 
mes com o saldo anterior, colocando o re- 
sultado no total da entrada (linha 770); 
calcula o total das despesas (linha 780) e 
calcula o saldo do mes (linha 790). 






Digite o programa anexo e verifique 
o funcionamento deste Minicalc que 
apresentamos. Mas digite exatamente 
como a tistagem se apresenta, sem alte- 
rar nomes ou numeros, caso contrdrio 
a Soma Sintatica nSo sera" a mesma (o 
programa Soma Sinta'tica deve $er co- 
tocado na RAM TOP, portanto antes 
de digitar o programa) . * 



10 PTM USdj,5,9l 

so ['in ui:.i,gi 

30 LET G~& 

*Q R£"H EN 

SO GOTO 13D 

E>« PRINT FIT ei,e;"MESa 

?a input h 

75 IP M>12 OR M^l THEN GOTO 7B 

OP LETT C=:M 

SO PRINT FIT S1,5;H 

leo FOR F = l TO 9 

11D LET U* (M4-1 ,F) n" » 

lse nl^t r 

I3e for d = i to 9 

110 GQ5US 650 

153 PRINT RT 21,0; "ENTRRDR DE D 

noo5 ■■ ; c; " , "; l> 

1ED ISPUT M* 

170 IF CODE rt*<=27 OR CODE H»)= 
33 THEN LET U(C*1,D!=0 

1BE> IF CODE HJIS7 FIND CODE H*<3 
O THEN LET UCIljDIiUDL H» 

190 LET UiLSM H* 

aeO IF CsS THEN LET u»iCll,[/,ie 
-N TO ) -M* 

E?10 IF CrO THEN LET U» (C + 1 ,D> -H 

SSO NEXT 1> 
330 GOSUB PSO 

2*D PRINT FIT 21. 0; ■'COMFtNDO ?<EN 
,PlL,CP,DX,eX, IM,SR>" 

ese inplit h* 

" THEN GOTO 33TB 
THEN GOTO 370 
THEN GOTO 730 
THEN GOTO 4« 

3B0 IF H«."EW" THEN C-CTO £>0 

310 IF HJ= = "IH" THEN ClirO EtB 

3£B IF Mt'"M" THEN GOTO B5B 

326 GOTO 258 

330 RIEH DX 

3*B LET H=HH 

350 IF Mill THEN LET 1-1=11 

360 GOTO £3B 

370 RFH EX 

3SO LET N=H-1 

390 IF Mtl THEN LET H=l 

*ae doto 23a 

*1B HUH RL 

4 38 PRINT RT 21,B, "ME5' 

*36 IMPUT M 

435 TF Ml IE OR Hcl THEN GOTO 4-3 



*-iO PRINT RT 21,5;M;" t-XNMAa "; 

*BO INPUT 2 

*ES IF Z>9 OR Z<1 THEN GOTO *3BI 

4GB PRINT Z 

*70 INPUT H» 

*tf.O LET U* <M + 1 ,Z) =" " 

*90 IF CODE H)(=B7 OR CODE HSJ» 
35 THEM LET U(H*1,Z>=C 

SOS TF CODE HUS7 OM£> CODE HS<3 
O THEN LET U m * 1 . Z 1 =U>-H_ H* 

510 LET NtUN .H* 

ESB LET LI|(H41,2,1«-N TO l»« 

530 GOTO S3B 

5*0 BtH IM 



S6T CWfilW 



269 


IF 


HS = 


'DX' 


£70 


IF 


HS = 


'EX' 


zee 


ir 


Ht- 


•cn 1 


299 


IF 


HS: 


•RL' 



MEMtiRIAOCUPADA: 

3.108 bytes 

SOMA SINTATICA: 
56.320 
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5BO kKINf RT 21,0; "uU^IL O MES 1 

578 INPUT M __ 

575 IF n»12 OR K<1 them goto *rr 

'am PRINT RT 21(1? 
390 LPPINT " IffiBI 

o*i to (M*ai ) 

feOB LPRINT 
610 FOR 0=1 TO 9 
620 LPRINT UCd.D) 
H*l ,OI 

630 NEXT D 

64,0 GOTO 230 

OSS REM SH 

668 PRINT RT HI , S ; "PREPOfje O CR 
RUHDOR E RPERTE N.L." 

670 PBUSE 3O0O 

6Ba PRINT RT Sl,e; "APERTE D REC 

DO GRRUHOOR 

690 PRUSE ISO 

700 SfiUE "HINICHLC" 

710 GOTO S30 

730 REM CR 

730 PRINT RT Sl,D;"OUflL O HES t 



, E * ( (H-1J « 



-;u»< 



735 INPUT H 

7*0 IF M US OR H ( I THEN GOTO 73 
5 

7*5 LET C=H 

750 FBST 

760 LET U ICtl ,Si "U (C,9» 

770 LET U IC + 1,3) =U tC+1, 1) +U CC + 1 

780 LET O IC*1 ,») "U (C + l,*l +UfC*I 
,5)+U!C*l,6>+U(C + l,71 

790 LET UICtl,9l aUICtl,3l -UlCH 
,SI 

SOB FOR P«sl TO 9 

BIO LET N-LEN STR* WICtl.FI 

813 LET U*!Ctl,Fl=" ■ 

S£0 LET US (C + l.F, 1B-N TO liSTR* 

U [C + l ,F) 

630 NEXT F 

B*0 GOTO 23B 

eso REM TE 

EGO FRST 

»7o Linr ea» 




Sao IF C = THEN LET H=l 
?BB IF Hsia THEN LET M.il 
910 LET Hlllt TO lBl=B*IH*3-2 T 
H*3) 

baa let R*t2B to aai=B»im34i t 

O H*3+3) 

930 CLS 

9*0 LET B* = *»: : 



95a LET C»-"'. " 

96B PRINT RS 

970 FOR Z=l TO 

9SB PRINT B* 

^90 PRINT CHQ$ 

lOBO NE>T Z 

lBie PRINT E( 

lB2e FOR F.i tq 



iZ HE6I , CS 



1B3B PRINT RT F«3,3;UI II, Ft;RT P 

I2,12,U»IMH,FI ,nT FI!,2J,lilliHi 

,F) 

10*0 NEXT p 

lose slou 
lesa RETURN 





ENTRRDR 1DD3«I! 




SRLD.RNT. B 

tot.entr. lesjce 




luz saaa 
ncuR *acici 




lELCPOME eaae 
rlihent. seaae 

TOT.OESP. 35BOO 
3RLDO 6 SO OS 



ggfti«a 



pt£jCTqf^^3P 



»Hl.P.flNT , ... 


, •> 


TOT -ENTR. . . , 


lOCISJvlB 














Rl. IIIKNT . ... 


J.lf Llt» 


TOT.DESP. ... 




SHLDD ... 


6SDIID 



COHRNOO 



'iEN,DL,Cn. OX, EX, IM.SH) 



Os comandos DX e EX movem a plani- 
Iha para a direita ou para a esquerda, pos- 
sibilitando uma visualtzagao global da pia- 
nilha, 

Se voce" passu i uma impressora e deseja 
listar a relatpao de despesss do mSs, utilize 
o comando de IMPRESSAO (linha 540 a 
640). 



Para a gravacao do programa bem co- 
moos dados da planilha (linha 650a 840) 
digite SA e NEW LINE Portanto, quando 
vodS recuperar o programa gravado nu- 
ma fita cassete, atraves do comando 
LOAD " " e for manusear os dados gra- 
vados, NAO UTILIZE o comando RUN. 
caso contrario, ele apagard os dados ja" ar- 
mazenados. 

Agora que vocS conhece o funciona- 
mento do Minicalc, utilize sua imaginacao 
e crie novos Minicatcs. Sugestao: crie urn 
comando que possibilite o movimento da 
planilha para cima e para baixo. 



SUB-ROTINAS DO PROGRAMA 



linha 10 - 

linha 20 

linha 30 a 50 - 

linha 60 a 220 

linha 230 a 325 - 
linha 330 a 360 - 
linha 370 a 400 - 
linha 410 a 530 
linha 540 a 640 

linha 650 a 710 

linha 720 a 840 
linha 850 a 1060 



dimensions a ma- 
trix da planilha 
dimensions a ma- 
trix para os valores 

nu mericos da plani- 
lha. 
entrada de dados 

na colu na "0" 
(Contas) 

- entrada de dados 
por mis (colunas 1 
a 12) 

- controle do coman- 
a ser acionado 

- move a planilha pa- 
a direita 

- move a planilha pa- 
ra a esquerda 

- alterapao de uma 
c6lula da planilha 

- imp rime a relacao 
de despesas de urn 
mes 

- grava □ programa e 
os dados da plani- 
lha 

- calcuia o saldo do 
mes 

- elabora a formata- 
cao da tela 



Experimente digitar estes dados 
para o m6s de fevereiro: 



ENTftflOtl 


auissoo 


SHL D .f:nt . 


TOT . r.N-1 R . 


LU,! 


3908 


BGUfl 


S 13 CMS 


TELEFONE 


leoo 


P.LIMSNT . 


^tioso 


TDT.DfSP . 


SHI.PO 



COHRKDO 7 lEN,j)L,Cn.DX,EX,IH,SA> 

■B" 

Depois faca os cdlculos com o co- 
mando "CA" e a seguir mova a plani- 
lha para s esquerda utitizando a rotina 
"EX". 



CNTRRDH 


lOOQOQ 


..'l.T -^O 


SRLD.RNT . 
TOT. ENTR. ' 


B 

leooaa 


esaeo 

2S5BOO 


LUZ 


soao 


'(M 


rsur 


*eao 


SSBO 


TELEFONE 


6CJOO 


leoe 


RLIHENT, 


SOBBO 


saBee 


TDT . DESP . 


asece 


a 90 OB 


SRLDO 


E50BB 


23seao 



COBBHDO T C EN, BL .. Oft , D f. , E X , Ih , 5f| > 

Repare que o saldo do mSs de Janei- 
ro foi colocado durante a rotina de cai- 
culo no saldo anterior do mSs de feve- 
reiro. O 
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COMPUTADORES 

NO 
RALLY 




III Rally Universitario Hermes Mace 
do, encerrado dia 10 de dezembro foi tal- 
vez o mais importante evento automobi- 
h'stico desde 1980, quando recomecaram 
as competicoes para estreantes e novatos 
suspensas em 1976. 

Nestes ultimos anos, mais e maiscom- 
putadores tSm se aliado ao horrtem para 
auxilia-lo nas mais diversas atividades. 
A sua dinSmica tern sido explorada desde 
as profundezas do mar aos conf ins do es- 
paco e seu trabalho tern sido reconhecido 
como indispensdvel pelo mundo todo, 

A Microdigital esteve presente no 111 
Rally patrocinando doiscarros; o numero 
200, pilotado por Marcelo Chamte {o 
Lufao) e navegado por Tacito Mistrorigo 
de Almeida (o Tito), que correram como 
estreantes apenas na terceira etapa e em- 
bora tendo problemas mecSnicos, obtive- 
ram boa colocacao. Mais sorte porem teve 
o carro numero 381 , pilotado por 
Francisco Rodes Fauss (o Chtco) e nave- 
gado por Francisco Loschiavo Neto (o 
Chiquinho), que participaram como vete- 
ranos e que venceram a primeira etapa do 
Rally (Santos); foram 29 colbcado na se- 
gtmda etapa (Campinas) e na IV etapa 
(Sorocaba) e chegaram em 139 na tercei- 
ra etapa (Sao Jose dos Campos), ficartdo 
classificados em segundo lugar na conta- 
gem geral dos pontos. 

Contando apenas com compettdores 
universitarios, este Rally quebrou o recor- 
de mundial de participantes: mais de 350, 
dos quais boa parte se utilizou das vanta- 
gens de se ter um computador ou calcula- 
dora a bordo para auxi liar noscalculos de 
navegacao com rapidez e precisao durante 
as proves, Computadores como o T K-85 
tiveram papel decisivo para se alcancar 
boas colocacoes, na opiniao de navegado- 
res como o Tito e o Chiquinho que, 
insatisfetto como segundo colocado, pro- 
mete ganhar disparado na pr6xima cor- 
rida, contando mais urna vez com a ajuda 
16 MICROHOBBY 




de um TK-85 da Microdigital. 

Show a parte, porem foi a maneira de 
instalar os computadores nos carros tanto 
eletrica quanto mecanicamente. Apesar 
de ter de suportar trepidacoes durante 
cerca de 300 km por 6 horas, havia ate 
carro equipado com TRS-80 da Radio 
Shack! A equipe patrocinado pela Micro- 
digital (as duplas Chico-Chiquinho e 
Lufao-Tito e o tecnico em Hard/Soft, 
Tanios Hamzo) optou porem pelo conjun- 



FOTO: Walter Morais 



to micro-TV, que apesar de dar mais tra- 
balho, ficava mais portitil e maleavel, 
Quanto a parte eletr6nica (os cinco inte- 
grantes da equipe sao estudantes de enge- 
nharia eletronica na E.E. Maua^ o "know- 
how" desenvolvido sera analisado na ses- 
sao HOBBY do pr6ximo numero desta re- 
vista, e esperamos que I he seja util, mes- 
mo que vooS nao esteja pensando em to- 
mar parte em um Rally, mas que possa 
querer instalar seu computador no carro.O 



Dois importantes titulos da 
ward W. Sams" agora em por i 



^SS^* 




CS6.&00. 



SUGEST5ES KARA O PROGRAMADOR BASIC 

<k Earl R. Savage 

Nada melhor para o programador do que um Ihiro de consulta que 
revels aquelas tecnlcas e "dicas* que os programadores mais expe- 
rtentes tanto escondem. Este Uvro fax Isso. De da dicas sobre como 
meihorar e agilizar sens programs*. Content 50 sugestoes detalha- 
dameirte explicadas sobre tecnicas e sub-rotinas para as mais diver- 
se* apBcacoe*. Sao comentadas tambem as variacdes possKeis das 
sugestoes apresentadas, o que toma o Uvro una fame inesgotavel 
de ktelas para o programador. 

Escrttas em BASIC Nfvd 11, as sub-rotinas podem ser usadas dire- 
tamente em equipamento* compatfveis com o TRS-80 (CP 500, CP 
300, DGT 100, D 8000). 



BASIC PARA CRIANCAS (DOS 08 AOS 80) 

de Michael P. Zablnskl 

Este Uvro foi escrtto espectolmente para os Jovens que quefram 
aprender a Unguagem E1AS1C, a mais popular e dlfundida lingua- 
gem de programacao doc compuiadores pessoais. Nenhura conhe- 
ci rn en to previo i necessario para aoompanhar este Uvro. pots de 
parte dos conceitos elementares e aborda apertas os pontos funda- 
mentals da programacSo em BASIC. 

Traia-se de um Uvro dtvertido, escrito num estilo lev* e bem humo- 
rado. Sua abordagem k. clara e estimula o principiante a pratfcar 
cada novo conhecimento adquirido. O Itvro se baseia na Unguagem 
BASIC Nfvel tl do TRS-80. um dos mais popular es. 



A0OUHW-OS NA SUA UVRARIA DE CONRANCA 0U SEGUINDO AS INSTRUCOES 



Em nnsxo estou remetendo a importonclo de CrS . 

em. Cheque N." c/Banco 

ou Vale Postal N." (envlar Ag&ncia Central SP> 

para pogamento do(s) Ltvro(s), {o|| (02] (assinalar) que me serdo remeti- 

dos pelo correio 

Cheque on Vale Postal, pagavel em Sao Paulo, a favor de: 

EDITELE Editoro Tecnlca Eletronlco Ltdo 

Coixa Postal 30.141 - 01000 - Sflo Paula - SP 

Nome: 

Endereco: 

Tetefoner CEP Boirro: 

Cidade: Estado: 

Obs,; Se nao quiser destacar esta folha, pode envior xerox ou carlo com os 
dodos completes. 
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GERENCIADOR DE 
BANCO DE DADOS 

PARA A LI1MH A TK 
E COMPATIVEIS! 

Programs com alia ve/ocidade de 

processamento, pelo emprego de rotinas 

em cddigo de miquina. 

Com ele voce ter$ um versa" til arquivo, 

com grande liberdade para definir os itens 

dese/ados, formar fichas, formatare 

imprimir os relatdrios classificados, 

selecionar, alterar, incluir e excluir 

dados e armazenar seu arquivo 

em flta cassete. 

Acompanham completas instrucoes 

para operacao do programa. 

Para adquiri-lo via correio, basta 

envlar carta com seu nome e endereco 

comp/etos anexando cheque no valor de 

Cr$ t f. 790,00, nominal a MULT/SOFT 

INFORMA TICA L TDA. - Caixa Postal 

54121 -CEP 01296 

SAO PAULO 
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ENTREGA MEDIA TA PARA TODO BRASiL 




CWBUG 

MONITOR E DISASSEMBLER 




" i ktytai <* ii - og j.ij 
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■US 
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' LI r»gnir«t U CrV * »ftf*««i H ROM • 
1 Pvnli nf#i(l* lUnaRhMI [Mi ttfflti 

cvmpriMl EM « nMci«^Mnp^t|aMK 1H.« / Til] / TH*» « I I 
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— Detejo jdqumr o programs CWBUG. Ejtou anexando the 
fMt N': - Banco iV° __^^_ . nominal i Clf'B 

MiCROCOMPUTADORES LTDA, no vdor de CRS 6)00.00. 
OBS At despesis de remtst* estao Incluidis no pftco. 

NOME 

F.NDERECO: 

CIDADIi 



ESTADO. 



CEP. 




riV/D MICROCOMPUTADORES LTDA 
^ *^ ° CAIXA POSTAL -3447 



10.000 - CUfliTIBA - PR 



MICRO ROBO QUE JOGA XADREZ 

Uma novidade bastante interessante, 
lanpada na atnda comentada -- feira da 
informatics do ultimo ano, e o simpitico 
micro robS KALT-400. O robS e formado 
por um brapo meca"nico com sets eixos, 
que se movimentam em Sngulos que va- 
riam de 0° a 180°. Ele pode ser utilizado 
em diversas atividades; desde o auxflio a 
deficientes f fsicos ate ao I ado de um sol i- 
tario jogador de xadrez, como um verda- 
deiro parceiro. . 

O KALT400 atende a comandos pro- 
gramados em qualquer microcomputador 
(inclusive os compati'veis com o TK-83), 
como tamtam comandos em qualquer lin- 
guagem. No BASIC, foi realizada uma ex- 
periSncia que resuttou no seguinte mini- 
programs: 10 POKE X, Y, onde X define o 
eixo e Y a posicao do eixo selecionado. 

BASIC PRESENTE NO INTERIOR 
DESAO PAULO 

Maritia, cid3de do interior de Sao Pau- 
lo, preocupando-se com a necessidade 
emergente por informacoes na area da In- 
formatics, inaugurou CIM — Centro de 
Informatics Manila. 

Centro oferecera cursos de BASIC, 
a iinguagem mais usual e simptes de com- 



NOVIDADES 




"^<^&> '' 



putacao, em tres nfveis. O primeiro e o se- 
gundo, atingirao as criancas a partir dos 
cinco anos de idade e trabalharao com 
elas. no sentido de desenvolverem a sua 
criatividade, atraves do racioci'nio l6gico 
e critico. dentro de uma visao humam's- 
tica.O tercelro ni'vel, destinaseiao publico 
jovem e adulto, oferecendo-lhes os princi- 
pals conceitos relacionados ao uso do mi- 
crocomputador na Iinguagem BASIC, evi- 
dente! 



UMA MAQUINA DE ENDERECAR 

Foi lancado em Sao Pauio pela Novel 
Print (empresa fabricante de etiquetas e 
fitas) uma maquina de enderecamento 
postal automa'tico. equipamento, apre- 
sentado na ultima feira da Informatics, 
denomina-se Tickopress 19 SD/MD e foi 
idealizada com o objetivo de efetuar um 



CONVERSE 

COM 
PROFISSIONAI 



SOFTWARE 

Linha complete 

de software apiicativo 

Desenvolvimento de soltware 

especifico para sua 

necessidade. 

,Linha completa de programa: 

para TK e CP-200 



SHOW ROOM E VENDAS: 



ASSESSORIA 

Antes da escolha de seu micro, 

nos diga qual o seu problema 

Nos o orlentaremos 

na escotha do micro CERTO 

para voce 

ou sua empresa 



CURSOS 

BASIC I, BASIC AVANCADO 

Excelente material diditico, 
no maximo 10 alunos 
por classe e 1 micro 
para cada 2 alunos. 



OFITfl SQLUTJQftl 

VENHA NOS VISITAR 

AV. EUSEBIO MATOSO, 654 ■ CEP 05423 - SP 

BEM EM FRENTE AO SHOPPING CENTER ELDORADO 

FONE: 813-3355 



MICRO REI 

INFORMATICA LTDA. 



- Cursos regulates de Linguagem BASIC ou com 
horario a combinar. para executivos e para 
qualquer microcomputador. 

- Curso sobre GRAFICOS em Basic, para JR, 

DISMAC. ... YVI 

- Venda de micros pelo correio: JR. MAx.xi. 

- Transformamos televisao para monitor. 

- Consultoria em SOFTWARE para 
microcomputadores. 

- Especializada em programas para Hewlett Packard 

85. 

- Proqramas prontos para HP 85 e 87: 

- Mala direta e agenda de clientes • Movimentacao 
bancaria com cbdigo de despesas • Datilograf.a 
automatica de circulates com busca de endetecos na 
fits • Topografia • Contabilidade de aut&nomo: livro 
caixa • Jogos diversos • Fotha de pagamento 

• Controle de estoques • Controle para Postos de 
aasolina • Controle de processes para Marcas e 
Patentes • Controle de alugueis • Contas a pagar 

• Contas a receber 



Rua Pinheiros, 812 CEP 05422 
Pinheiros SP 

Tel,: 10111 881-0022 
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enderegamento automdtico em todo tipo 
de corresponded cia, desde envelopes ate 
revistas. O processo de enderecamento e 
realizado com o empilhamento dos enve- 
lopes na parte anterior da maquina que os 
separa por unidades, aplicando as etique- 
tas sernpre na mesma disposicao, afcan- 
cando uma velocidade media de a\6 70 
aplicacoes por minuto. 



FITAS CO LOR I DAS 
PARA IMPRESSORA 

Investindo grande potencial na amplia- 
cao de suas empresas, o Grupo Machado, 
formado pelas empresas Data Ribbon, Mr. 
Data e Datrix, um grupo fabricante de 
f itas magneticas e disquetes, resolveu par- 
tir, neste segundo semestre, para um 
ritmo mais intenso de automacao. 

Com este objetivo, o Grupo est3 desen- 



volvendo em sua fabrica, um laboratorio 
de analises e instalando maquinas de en- 
tintar em OCR e corte de films de polieti- 
leno. Todo este investimento em miqui- 
nas, resultou no lancamento dos disketes 
Datadisk, das fitas Qume, LGU 3287 (em 
4 cores), Grafix 80 e 100, aiem de uma 
tinha completa de fitas em cores. 

OS JOGOS DA MULTISOFT 

0s usuarios de micros tSm agora a sua 
disposicao uma serie de 1 6 jogos em fitas, 
lancados pela Multisoft. Sao fitas que 
agrupam de dois a trfe programas com 
2 K de mem6ria, e podem ser utilizados 
em microcomputadores como os TKs 82 
e 83. Entre os jogos disponi'veis para ven- 
da nos revendedores estao: "Invasores, 
Desafio Espacial, Bombardeio, Smag- 
Smag, Corrfronto, Minotauro, Laser, Lim- 
peza C6smica entre outros. 

MICRODIGITALNO RIO 

Os usuirios dos micros fabricados pela 
Microdigital, no Rio, ja possuem um local 
para levar os seus aparelhos encrencados. 
A empresa inaugurou em Ipanema, na 
Rua Visconde de Piraja, 414-conj.606, 
uma filial para prestar assisteYicia tecnica 
aos usuarios de seus aparelhos. O 




LIVRARIA 
SISTEMA 



LOJA: Galena Metrc.pole lj. 8 - I ■ s/loja 
Tels.: 259-1 503/257-61 1 8 - SP 



ENTRADAS DA GALEFUA: 
Av. Sao Luiz. 1 87 - lAntigo 1 531 
Praca Dom Jose Gaspst, 1 06 - SP 



SSMPRE NOVIDADES 



1 - MACHINE LANGUAGE PROGRAMMING MADE SIMPLE FOR 

YOUR SINCLAIR & TIME* TS 1 000 - ZXB I - ZXSO - 

Melbourne ZB 000 

2 MASTERING MACHINE CODE ON YOUR ZX8 1 -Tom Baker 1B.000, 

3 • APPLE II - GUIA DO USUABIO - EDICAQ EM PORTUGUES - 

Osborne 3.800 

4- A CONSTRUCAO DE UM COMPILADOR Setzer 5.J0O. 

5 - A PRIMFiRA MORDIDA - Apple II - ma™ unnitron- 

micfoengenho-Tucci 4.200, 

6 - BASIC SEM SEGREDOS - Mirshawka 6 500 

7 - ESTRUTURAS OE DADOS ■ Furtado 6 900 
B 1NTRODUQAO A LINGUAGEM BASIC 

P/MICROCOMPUTADORES- Lederman- 6.3S0 

9 ■ MICRQCOMPUTADOR NO CONSUL TORIO MEDICO- 

Nascimenlo ... S 200 

10 49 EXPLOSIVE GAMES FOR THE ZX8 1 - Hartnell- 14.100, 

11- THE TIME* SINCLAIR 1 000 • INCLUDES 50 REAOY-TO- 

RUN PHOGRAMS 1 6 000 

1 2 ■ GETTING ACQUAINTED WITH YOUR VIC 20 - Hartnall 1 6.000 

13 - LINGUAGEM DEMAQUINA PARA OTK- 82-83-85 

(assembler z- 80) Rossini 6 500 

1 4 - FAST BASIC ■ BEYOND TRS-80 BASIC ■ Graizer ■ 24 600 
1 5 - ENHANCING YOUR APPLE )l - Lancaster ■ 30 400 

r, COMPUTADOR: UM NOVO SUPER-HERCd: - 1 983 

1S7pa»mas S.400. 

E um Iivro qjb desvenda todos os misterios dDs computadores, desde seu 
nsscimenio ate a lingua que ales gostam de usar para conversar eonosco 
Destinado aq publico tnlanto-iuvenil e a tergos no assjnio Autores' Maria 
tCecilra C Baranauskas/Heloisa Correia Silva 



1 Prsi^os sujeitos a alteracao 



v_ 



ATENDEMOS POR REEMSOLSO 

0ORREI0 £ VARIG - Ifora da Capitell 

PEDIOOS PARA: CX. Postal 9280 

CEP 01 051 SAO PAULO - SP 



PROTEJA SEU 

MICRO 



ESTABILIZADORES 

ELETROIMICOS 

DETENSAO 

• UL TRA SILENCIOSO 

• ALTO REND1MENTO 

■ BAIXA OA TENSAODE 
SA IDA : ± 10% da Tensao 
nominal 

Potincia — Monotasico: 
0,5KVAare~ 15KVA. 

Trifasico: WKVAatH 

200 Kb 'A. Para a/imemapao de 

Mini e Micro Computadores, 

Equipamentos Biomddicos, 

fotocomposifSo, laborat&rios, 

etc. 



ZENTRANX 

EL.ETRONICA, INDUSTRIA E COME.RCIO LTDA. 
NO BREAK ESTABILIZADORES DE TENSAO 

Piua Elias Mahfui, 22 • CEP 04746 ■ Santo Amaro ■ SP 
Tels.: (011) 522-2159 e 5480651 
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PROGRAMAS DO LEITOR 



EQUACOES ALGEBRICAS 
E TRANSCENDENTAIS 



i. ometodo 

metodo utilizado no programa deno- 
mina-se "Metodo de Bolzano ou de bis- 
seccao". E: urn processo simples de apro- 
.ximacao sucessiva para determinar raizes 
reais de uma equacao algebrica ou trans- 
cendental'. Partindo-se de um ponto 'x' 
menor que a raiz procurada, o metodo in- 
crementa V, sucessivamente, por 'h', at6 
que um intervalo de amplitude "h' seja en- 
contrado, de modo que f(x) e f (x+h) te- 
nham sinais opostos, isto e, f(x).f(x+h)< 
0. 

Uma raiz ervtao 6" detectada entre 'x' e 
'x +/?'. A partir daf, o passo 7>' e reduzi- 
do a metade em todas as etapas seguintes, 
observando-se o seguinte: 

a. Se f(x).f(x+h)>0, na etapa seguin- 
te usar-se-a" o intervalo anterior reduzido 
a metade, com valor de x' incrementa- 
do pelo valor de 'h' (dessa etapa ante- 
riorj, isto 6, daquela em que foi obtido 
f<x>.f(x+h)>0[sinal (+)];e 

b. Se f (x) .f (x+h)<0, na etapa seguin- 
te usar-se-a o intervalo anterior reduzido 
a metade, por6m com o valor de V man- 
tido da etapa anterior, isto e, daquela em 
quefoi obtido: f(x) ,f (x +h)<0. [sinal (-)]. 

Desta forma, a raiz 6 sempre aproxi- 
mada pela esquerda e em qualquer etapa, 
a amplitude do intervalo do passo ante 
rior da o limite superior de erro. 

Encontrada uma raiz, pode-se partir de 
sua direita para local izar outra que por- 
ventura houver, 

2. PROGRAMA 
a. Comandos BASIC 



1« REH PfOBO f*. CBPLINI 

IS OEM --fiflJZCS DP EOLflCPO- 

28 REM "rtBTOOO: BOLZONO- 

4.0 LET K>B 

SO LETT L.« 



>ESeJ(U>« Wri L 



e>a PRINT RT B,l;-UOCS jb" intw 
" P) FUNGIJ~ 
B T IB* 

OUT LIB 

sa if u»-"S" 



DDUZIU H FUHCBO 

xnhh eae r (s^nj- 

70 IHPUT LIB 

TMrN GOTO 120 
0O CI- S 

loe print nx s,i; "Lisre o progs 

PHP E IHTRDDU2H Fl FUNCBO OESEJRO 
P NP L INHB 608 . " 

110 STOP 

1EO LET H-B.5 

no CL3 

1*0 PRIMT RT Bjl;"eNTflE COM UM 
URLOR OURLOUER MENOR SUE H 14 
BIZ FROCURflDfl. ~ 

130 INPUT X 

ise LET K.K+1 
178 CLS 

ise cosub eee 

190 LET i;--F 

aae print rt b„i;--x» ";x;«t 7,1 

; "N» ":MjRT 9,l;'X*M» -*;X"*H 

ate let x.x+h 
ase go5ub eaa 
23B print rt ii,j;-fix)« -;»;*rr 

13, 1; T IXtH) - ";F 

2*0 IF F.B THEN SOTO SIB 

ase xf ©-• then goto 530 

see XF nets ir-sj<«.BOWi then go 

TO 53B 

a?a if f*ob then goto 310 

aSB PRINT RT 15,1,"SIMHL I - 1 " 
290 LET Lai 
300 GOTO 338 



318 PRINT 3T 15,l;'SIkil. (+.!" 
3S« PRINT BT ITjij-OlBI " <NEU 
LINE)" 

338 Pftuee 9999 

3*8 POKE 15.106,235 

3B0 IF NOT L=l THEM GOTO *BH 

aee ir F*e>e then goto aae 

378 LET X-X-H 

360 LET H=Hs2 

390 GOTO 150 

4.88 IF H< = 1» THEN GOTO IBB 

*S0 PRINT RT S,l;-HPOS INCRETHEN 
TRR <X> DEZ ueZES, NOO ENCONTKEI 

INDICIOS DE BflXI." 

4.38 PPIWT »T 9,l;"PflRfl PESI5TIR 

OIGITE (P>." 

4.410 PRINT RT 11,1; "PBRfl TENTRR 
OUTRO URLOR INICIRL OIOITE DURL9 

Lten ieclp e heulime" 

*E50 INPUT U* 

*ee IF U|i-P" THEN STOP 

4.78 CLEAR 

iOB LET K=0 

490 LET L*0 

580 GOTO 12B 

618 PRINT fit i?,i;"X. ™;x;' E- 



S30 PRIMT FIT 



17, X, "X. 



; x-h; 



54.8 STOP _ „ 

60B LET F=eXP X-3*X 

618 RETURN 

630 IrUE "SRIZES DE EDUHCRB" 

6*0 RUN 



MEMORIA OCUPADA: 

1556 bytes 

SOMASINTATICA: 

21289 



b. Vanaveis utilizadas 

X: valores das abscissas da funcao 
fix); 

H: valores das amplitudes dos in- 
tervals utilizados, 

G: valores para f(x); 

F: valores para f(xTh); e 

K, L e U$: valores auxiliares para 
controle das mensagens 
pertinentes as diversas 
situar;5es encontradas. 

c. Observacdes 

1) A funcao f(x) da qual se quer 
pesquisar o valor de 'x' tal que 
f(x) = 0, deve ser, previamente, 
definida na subrotina 600. Caso 
isto seja esquecido pelo pesquisa- 
dor, o programa ir£ lembrS-lo 
desse fa to; 

2} intervalo 7i' esta, inicialmente, 
fixado em 0,5 de amplitude. 

3) Esti previsto caso onde um 
dos valores assumidos por 'x' ou 
'x+h' venha a se constituir em 
uma raiz exata da equacao. 

4) Caso o valor inicial escolhido pa- 
ra >' nao permita, ap6s dez eta- 
pas, encontrar um intervalo [x, 
x+h] tal que f(x}.f{x+h}<0, o 
pesquisador sera consultado se 
desiste da pesquisa, ou se quer 



Pttdro Antonio Carlini P. de Souza 

atribuir outro valor inicial para 
Y , reiniciando o processo itera- 
tivu, 

5) programa pode ser utilizado 
num TK83, Hao sendo neces- 
saria a expansao de memoria. 

6) oilculo da raiz esta previsto 
com aproximacao a menos de 
0,0001 . 

3. O TESTE 

programa foi testado com diversas 
funcoes e valores arbitrarios iniciais para 
'x'. 

Os comandos "basic" do paragrafo an- 
terior apresentam para teste a equacao 
e* — 3x=(3. Para tanto, definiu-se na li- 
nha 600 a funcao: 



BU LET F=EXP X-3*X 



Partindo-se do valor inicial x = 0, de- 
pois de 15 impressoes de resultados, 
obtSm-se a solugao. Reproduzimos a se- 
guir alguns resultados: 

a. Primeira impressao: 

,X= C.817187S 
M> .9039C6SS 
X+H= 0. 6^109^75 
FIX): ,PL»2U<652i 
F(X*HI= -,P053«E43B 
iilHBL <-l 
OIGITE <NEU LINC> 

b. Segunda impressao: 
x* e.6J7ie75i 

H= .BB9076E625 

X4-H- e. 6ieit34.ee> 

F«X1= .C0214*t:Sa4. 

f<x*m)= .uei«asieB3 

SINRL (+) 

DIC1TE «NEtl LINE) 

c. Decima quinta impressao: 
f--- o.ivisaieso 

Ma .P.»006103515f. 
F(X>= .00004.6035693 

f(h+m)= -,eeeeEBPi6574 

X- 0.6193 1556 E* R 511LUCBO. 



O autor daste programa, 6 bacharei licenciado 
em matemdtica pela PUC-SP e atualmente da 
aulas na area, na PUC-SP e nas Faculdadas 
Oswaldo Cruz. O 
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use 

Tig Louder. 

TIG LOADER possibilita: 

■ a locaiizacSo do otimo volume do gravador, facilitando a 
operagao LOAD. 

• DUPLICAR qualquer programa, mesmo aqueles 
"fectiados". 

• carregar (LOAD) e DUPLICAR simullaneamente. 

• gravar (SAVE) em 2 gravadores ao mesmo tempo. 

• monitorar as operates LOAD, SAVE ou DUPLICACAO 
atfavis de tone. 

• fiitraras interterincias eletricas de baixa frequincia, que 
sa~o a causa da maioria dos problemas de LOAD/SAVE. 



3 TIGRE 



l n • J i l : m »/ 4 3 * j l//iW5*H»T'7iIS7TF7»TI73a 



Rua Correia Galvao, 224 - CEP 01547 - Sao Paulo 



NAO CARREGUE ESTES PROGRAMAS! 



V. nio preeisa mais carregar estes programas: eles est§o prontos pa- 
fa usa, em CARTUCHO! Cortecte o cartucho, ligue o micro e... so! 
Seis aplicativos a sua dfeposicao, esperando V. comandar. SEM mo- 
dificar seu micro. E a expansao de memoria e usada rtormalmente! 
Como lancamento, o TIGRE oferece: hi-speed, renumerador, apaga- 
dor de linhas em bloco, soma sintatica, disponibilidade de memoria e 
rotinas de video em urn unico cartucho! E ESPETACULARII! 



ESCREVA PEDINDO INFORMA<?OES 



Praia deentrega: I5dias. 

Despesas postais incluidas nos pre$os 



Solicits relacAo de programas em //fa. 



SIM . deseio recebor TtG-LOA DER 



. para tamo, astou anaxando o cheque /i. e _ 



- no nalar tie Crf*. 



. 



MP 



MARC A DO MtCROCOMPUTAOOfl: 



ENDERE^O: 



PBOflSSAO 



ASSINATURA 



PROGRAMA DOMES 



DUELO 



Gurt*vo Egidio <f Alm»id» 



Voc6 e Kid Dado Letdo, o melhor (e 
unico) xerife da regiao onde fica Micro- 
Town, 

LA, encontranvse Jonny Ringo, Jesse 
James, Billy The Kid, Sundance Kid, os 
irmaos Dalton, Kid Reagan e outros gran- 
des matadores. VooS veio a MjcroTown 
para acabar com todos etes, e agora segue 
pela rua principal da cidade. 

Cuidado! Em cada esquina pode haver 
algudm a sua espera, e, se assim for, voce 
nao poderd fugir ao DUELOI 

confronto sera 1 inevitdvel e so Ihe 
restarao duas opeoes, , . Matar . . . ou 
Morrer\ 

Aguarde o momento ceno e. . . "Fo- 
ffo!! " (Figura 1). 




Aquele que disparar primeiro, ficarS 
para contar a histdria . . . 

Eu sinto pena de voce, pois o temfvel 
e esquizofrSnico Kid Reagan, o maior de 
todos os matadores, oodeial Decididoa 
liquidar voo§, trouxe a MicroTown toda a 
sua quadrilha e voce" so sair^ da cidade 
num caixao! 

Portanto, se voce' quiser continuar vi- 
vo, continue matandol 

Tome cuidado com sua consciSncia, 
pois vooS £ uma pessoa honesta e se'dispa- 
rar antes do momento . . . "FogcH ", ira" 
punir a si mesmo ( F igura 2) . 



coHTot: ao* 




DESOSEOECEU DECRRS 



Contagem: 



— A cada passo percorrido -*■ 5 pantos 

— Caso venca o Duelo -* 50 pontos 

— Desobedecendo as regras -*■ —5 pontos 
Para mover, (0) use a tecla 7 

Para atirar use a tecla 
Inimigo — (") 

Muita atencao no momento da digita- 
cao! 

Cuidado para nao digitar comandos ou 
funcoes, letra por letra. 

Funcoes, como por exemplo INKEY$, 
devem ser digitadas da seguinte maneira: 
SHIFT NEW LINE tecla que contem a 
funcao. 
22 MICROHOBBY 




Caracteres graficoi usados: 

" B "-SHIFT9eSHIFTH 
" ■ " -SHIFT 9 e SHIFT SPACE 
" "-SHIFT9eSHIFTB 
Observagao: Para alterar o grau de difi- 
culdade do jogo, devemos tistar a linha 
350 atrav& do comando LIST 35<3 e 
NEW LINE, depoisusar SHIFT EDIT. 

Feito isso, 6 s6 mover o cursor para 
a direita atraves do comando SHIFT 8 
repetindo a operacao ate que o cursor pa- 
re de se mover. 

Agora, delete o ultimo caractere, digi- 
tando SHIFT RUBOUT. Digite uma das 



letrasabaixo: 

B 

A 

R 

Pronto, esti feita a alteracao. Experi- 
mente fazS-las e veja o que acontece em 
cada uma delas. 

Como voce pode notar, na listagem do 
programa, sao utilizadas funpoes pouco 
usuais para computadores de 16 K ou 
mais de mem6ria, mas muita usadas em 
programas com no m^xirno 2 K de RAM, 
Funcoes "estranhas" como VAL, mas 
muito importantes porque economizam 
bytes, diminuindo significativamente a 



mem6ria do programs. 

Por exetnplo: 

Quando fazemos: 

10 LET C= 10 NEW LINE, 
ocupamos 1 6 bytes. 

Agora, se ao inves disso, f izermos: 

10 LET C = VAL "10" NEW LINE 
ocuparemos 1 3 bytes. 

VocG pode constatar isso atravfe do 
comando: PRINT PEEK 16396 + 256 * 
PEEK 16397-16509. 



AGUARDE: 

COMO ECONOMIZAR MEM6RIA 

NO TK, NA SEQAO DICAS. 



a cls 

3 LET F.-VRI. 

* let rival 

5 LET S=URI. 

6 LET P.K-K 

7 LET B«URL 
O LET S=R-K 
9 LET D-URL 

feO FOB F»P VO « STEP KtK 

23 PRINT RT F,Pj "Mi r 

4.0 NEXT F 

so print bt k,r; "pomtos 

6B PRINT fiT s,e; "O-'.BT 3 



•1" 

■!••■ 



"SB" 



Ih4KEV»»"T" THEN LET »"S- 



THEN LET P- 



7« IF 

<K*K! 

75 IF rMKEY*» - '7 
R 

77 IF 5<« THEN LET S=fi-K 

OO LET L>M IRNCIS! 

90 IF L-K THEN SOTO WRL 

ISO GOTO D*R 

aoe prtnt rt a, 6); "O" 

205 LET C=IHT (RNOtlKtKU 
22B IF CK-K THEM LETT C -fl 
538 FOR H-K TO R 
3*0 PRINT RT S-(K+K> ,C; "■ 
-m+K> ,Cj -"■■•• 

aso NEXT H 

2SS PRIMT RT K.RtRjP 

260 FOR F>K TO 0-K 

a^o print mr s-(k+ki ,c; -~ 



2 75 LET C»C + (C <B> -(OBI 
SOB NEXT F 

age phimt rt s-ik*k) 

3BB PRINT RT n,R; - 

3JO FOR F»K TO INT ( RND +D) +0 
330 XF INKEY «."»■■ THEN GOTO WU. 

330 NEXT F 

340 PRINT FIT R,R; "BEHEBH1" 

3Se for f.K to int^THn3TS-«» *K 

36U NEXT F 

3«5 IF INKEY*--* - THEN GOTO Up*, 

37B print rt »,c;".':Br s,c;"x _ 

36S PfeINT BT R,R:"TECLE l»" 

ISS 5 t ^Il*- 3 ?,-™ EN bun 

ceS'reSSS " RT "'•" _WOCC OB50Kor 
*1B pruse vrl •?«(>- 

*SS PRINT RT S-(K+K> ,C; " " 
43« LET P.P-IB4.K) 
**B PRINT BT_nj«;" 

*I9 SOTO D 
Sea FOR FiK TO R 
BIO PRINT RT S-IK+K) ,C; ' 
- IK*K1 jC; "X" 

SaO NEXT F 

330 LET PoP to 

535 PRINT RT S-IK+KJ.C, ■ 

S4.SJ GOTD URL •**S' 



;rt S 
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ARTIGOS 



14 programas 
para meditacao 




Este pequeno artigo stmplesmente 
apresenta alguns programas escritos em 
Basic, cujo efeito deveria ser anatisado pa- 
ra "meditacao" por todos que ja tenham 
urn bom conhecimento de Basic-TK, 
Comecemos brincando com a tela. . . 



Flavio Rowini 



Agora, tente explicar a "assimetria" 
que ocorre nesta figura ap6s o eruzamen- 
to dasduas "linhas": 



BROGRnHR 1 
10 f LOU 
30 RUN 



PROGRAMS 3 



PROGRBMR 2 

10 FRST 
20 SLOW 
3C RUN 



10 PRIMT RT 21,31;" 
2(S PRINT 'HRRHaNIfV 



PROGRRMR 4 

3 SLOU 

ID FOR 1=3 TO 21 

20 FOR J-=Q TO 71 

30 PRINT ST I.U;' 

4 PLOT I, J 

58 NEXT J 

6SS NEXT I 



Agora, varnos a precisao numerica do 



Como vocS exptica os numeros alsat6- 
rios gerados pelo prbximo programa? 



PRQGRfW-lfl la 

le slow 

23 FOR 1=0 TO 21 

38 PRINT TR6 I; "I 
"■" 

40 NEXT I 



•JTRB 121-1! ; 



PROCRRMfl 3 

IB SLOU 

i9 RRND 

30 LET X«INT 

4« SCROLL 

S0 PRINT X 

60 RUN 



(lBOtRNCI 



Execute o programa a seguir e, no fi- 
nal, faca um LIST do mesmo . . . 



Utitizando as teclas 5, 6, 7, 8 ou o 
joystick, movimente o "ponto piscante" 
gerado pelo pr6ximo programa para cima 
(tecla 7). que ocorre quando voce ten- 
tar sair da tela? Isto acontece em todas as 
direcoes? 



r 



TK 



r~ 



PRD5.F1RNR 5 



IB LET )( = 127iS673Sa 
SB PRINT X 



PROGKilMfl & 



ie i_er x=e,e«iOBi 
2a LPRXNT x 



PROGRnpiR y 



IB LET X--+ 
20 PRINT mi? 



PROGRRMO S 

1 PRINT "LEVNTSN" 

2 PRINT •"HCCRKTMEV" 

J POKE is&ia,s 

4 GOTO 2 



Agora, com o auxflio de um relogio, 
cronometre o tempo de execucao dos 
pr6ximos dois programas. . . Tente expli- 
car adiferenca! 

/■ \ 

PROGRfiMR lO 

10 SLOU 

213 FOR Y=0 TO 9 

3<» FOR X=B TO 9 

40 PLOT X,Y 

SO NEXT X 

ee NEXT V 

ccosniwn n 

IB SLOU 

EO FOR V.34 TO 4 3 

3d FOR X^54 TO 63 

4.« PLOT X,Y 

SB NEXT X 

GB NEXT V 



PRDGRRHR 13 

10 SLOU 

M LET X-IS 

3« LET Vi28 

49 LET KNxX 

SB LET YNrt 

60 PLOT XN.TO 

6S LET XH-X* (INK£Y*»"8") - fINKI 
Y«="5~) 

70 LET YliaY»ttNKfVS= - 7-]-(INM 
V V = •■ 6 " J 

75 UNPLOT X , Y 

SB LET X-XN 

BS LET Y.YH 

9B GOTO 60 



E , para finalizar, um pouco de logica. 



r 



PROGRRnR 14 

IB SLOU 

SO LET fl = l 

30 PRINT (NOT Rl 

40 PfliMT 

SB PRINT 

6» print 

70 PRINT 



IB »3> 

IB. 11 

ifli2 PND H)3) 

<B>=1 OH R>-ll 



e« dim ni eie 

90 LET at- "eeRTLES" 

100 LET R=LCN R* 

110 PRINT R»,R 
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PROGRAMAS 




PAREDAO E 



SAO FRANCISCO 




Para aqueles que tern urn computador 
de 2 k de RAM e nao possuem expansao, 
a Microhobby apresenta, este mSs, dois 
programas divertidos. 

primeiro e o "SSo Francisco ". uma 
cidade dos Estados Unidos que ja sofreu 
varios abalos sismicos(por estar construf- 
da sobre uma falha geologicaje que agora, 
(no nosso contexto) esta sendo abalada 
por um tremor de terra e sendo destrui'da 
gradativamente, Pouco a pouco vao sur- 
gindo buracos (GRAPHIC SHIFT H) devi- 
do ao terremoto e voce\ o "O" represen 
tado na tela, como ultimo dos habitan- 
tes, deve lutar peta sobrevivencia mas 
nunca abandonar a sua cidade. 

Utilize as teclas 5, 6, 7 e 8 para loco- 
mover-se a esquerda, direita, descer e su- 
bir; ou do Joystick, escapando dos bura- 
cos que o ameacam. 

jogo termina quando voce cair em 
um deles ou sair das delimitacoes da ci- 
dade. 

O segundo e o "PAREDAO". Para 
quem nunca jogou paredao e quer saber 
como jogar, aqui esta sua oportuntdade! 

Voce (GRAPHIC SHIFT 5) deve reba- 
ter a bolinha (O) que bate na parede (na 
tela, local izada a esquerda), utilizando se 
das teclas 6 para descer e 7 para sub if. 
Quando vocS efetuar um total de tres jo- 
gadas, na tela aparecera o total de pontos 
conseguidos. 

Conhecendo estes dois jogos, maos a 
obra! 



Introduza os programas tomando cui- 
dado para nunca digitar as funcoes RND, 
PEEK, INKEY$, INT, VAL, PI, letra por 
letra — isso deve ser feito com o cursor 
em Q . Por exemplo; para obter a fun- 
cao RND.tecleSHIFTNEWLINET. 

Para conferir os programas, utilize-se 
da Soma Sintatica (publicada na edicao 



rtumero 5 de Microhobby). Para isto, co- 
!oque iniciafmente o programa da Soma 
Sintatica e "de" RAMTOP, Feito isto, di- 
gite os programas exatamente conforme 
as coordenadas dadas, caso contrario, as 
modificacoes efetuadas por voce nos pro- 
gramas, alterarao resultado da Soma 
Sintatica, 



SAO FRANCISCO 



2a 

38 
4.B 

SB 

u 

>5B 

90 
lae 

ill, 

11c 

12B 
139 
14.0 

16B 



PB1HT "^^^^^~ 
FOR H*l TO 14. 
PBIHT "■ 
NEXT H 
PRINT "fm 



LET P*16334 

LET s.a 

POKE P .32 

PRINT «T 3d, B; "PLBCS1H = " ; S 

PRINT RT i+ IPN0413I , 1 * iRHDl 

IF PEEK P(>sa THIN STOP 

POKE p,a 
let s=s + l 

t_ET P"P*(INKFr«a"8"l-IINKE'f 
'1+33*1 ( IMKEV* = '6-) - <IMKEV*= 

IF PEEK P<]> THEN STOP 

goto ea 



MEM6RIAOCUPADA: 

550 bytes 

SOMA SINTATICA: 

21409 



PAREDAO 



■1.3" 



C-INT 



S LET T.UHL "8" 
19 LET S=URL "J," 
ae LET B=URL "11" 

ao L^rr c-e 

43 LET R^VfiL '12- 
4.5 PRINT VOGO ";S 
SO PRINT ST B,UHt 

ea pr ihfr ot c , Ft; " 

OS IF R-WRL "a- TH5N LET 
(PNDlS! 418 
7B LET R=fl-PI^PI 
ea LET B-B- ( INKEY«» ,, 7" 1 ♦ UMKCV 

180 PRINT RT B,URL "13"; "1 
IBS LET B = fl-PI/PI 

na print ht c,a; n o- 

120 I^ R«URL "-12" AND O-C THEN 

LET B.UfiL "1£" 

1SS LET TsTtPI/PI 

138 IF RxUAL "-ae" THEN GOTO UR 

L "aao" 

lOB GOTO URL "sa* 1 

aee let s»)»pi/pi 
a as CLs 

aie if s«ual "*" them goto u«l 
■■ao- 
aaa print -oeu plachr - ";t 



V 



MEMORIAOCUPADA: 

360 bytes 

SOMA SINTATICA: 

23565 
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O Instan-TK 
e a amnesia 
em micros. 



Nao ha - nada mais medonho para um 
digitador do que a ideiia de ver um progra- 
ma quilometnco (aqueles com 15,9 k By- 
tes) evaporar, antes de te-lo gravado em' 
fita. 

Alguns computadores mais recentes 
possuem um tipo de mem6ria que jamais 
esquece , a nao ser propositadamente. 
Os TKs e tantos outros computadores 
pessoais tftm o que se chama de "memdria 
voia"til", ou seja: interrompertdo-se a ali- 
mentacao eie'trica, mesmo por muito pou- 
co tempo, a memdria "esquece" para 
sempre seu conteudo. 

Para espantar este "fantasma da amne- 
sia" de uma vez por todas, costuma-se 
usar um sistema conhecido por NO 
BREAK, que nao interrompe a alimenta- 
cao eletrica ao micro, mesmo que haja fal- 
ta de energia eletrica na rede, ou, num ca- 
so comum (pelo menos para mim) onde o 
usuaTio, muito excitado durante um jogo, 
chute sem querer o f io da tomada. 

Em sistemas de responsabilidade, a ins- 
talacao de um NO BREAK e crucia!. O 
TK, que pode ter aplicacoes diversas, po- 
de ter diferentes motives para conservar 
sua memdria por prazos igualmente varia- 
dos. 

Segundo minha concepcao, sao tr6s as 
categorias de NO BREAK: 

1. INSTANTANEA: Quando se quer 
que a memdria nao se perca por alguns 
instantes, enquanto se troca de tomada; 
quando houver instalacao eletrica intermi- 



tente (com bruscas variacoes de tensao ou 
em tomadas, extensoes ou "benjamins" 
com mau contato, evidenciado quando se 
mexe neles para ligar um gravador, por 
exemplo) ou ainda quando aquele seu 
queririo priminho vem te visitar e quer 
descobrir o que acontece se o compu- 
tador for desligado quando voc6 esta 
usando. A mem6ria serd mantida por 
alguns minutos, 

2. PORTATIL; Quando se quer que a 
memdria seja mantida, enquanto o 
computador e transportado de sua case 
at6 a casa de um colega; da escola ate o 
clube ou do escrit6rio ate um cliente. A 
memdria podera ser mantida por algumas 
horas. 

3. PERPETUA: Em sistemas realmen- 
te NO BREAK, que nao podem parar; 
alarmes residenciais, comerciais ou indus- 
trials; contmle de processos; em soft- 
houses e em ocasioes em que o micro de- 
va funcionar indefinidamente sem inter- 
rupcoes, independente da disponibilidade 
da rede eletrica. A memdria poderS ser 
mantida por dias. 

Abordarei o primeiro e o segundo ca- 
so, que me parecem mais interessantes 
para o leitor, porem ficarei atento a cor- 
respondfincia pedindo compfementacao 
do artigo. 

Chamei o projeto de INSTAN-TK e 
seu esquema eletrica pode ser vtsto na fi- 
gura 1 . 





Bl 



■I'M'IW 



Tanioi Hamzo 

Todos estes componentes podem ser 
facilmente encontrados em casas do ra- 
mo. Atencao para a polaridade de diodes 
e do L.E.D., bem como a sua sensibilida- 
de ao calor excessivo. Verifique as liga- 
coes antes de ligar o aparelho. 

FUNCIONAMENTO DO CIRCUITO; 
Apesar de ser um circuito aparentemente 
simples em sua configuracao fi'si- 
ca, hi diversos detalhes dirtSrnicos acumu- 
lados em cada componente. Farei uma ex- 
planacao do funcionamento conjunto, 
descrevendo a(s) funcao(oes) de cada 
parte. 

Ao se ligar o plugue da fonte no circui- 
to, atrav^s de J1 e este ao computador 
atrav^s de J2, observa-se: 

Com a fonte ligada, havera passagem 
de corrente para o computador atraves de 
D1 , que esta diretamente polarizado, sem- 
pre que a fonte estiver ligada. No entanto, 
quando ela nao for mais capaz de suprir 
energia, ficari o diodo D1 inversamente 
polarizado, nao conduzindo energia das 
pi I has para outro lugar senao para o com- 
putador. Com isso, ficarao com carga des- 
tinada exclusivamente para o compu- 
tador, garantindo seu funcionamento. 
AI6m disto, este diodo mefhora a atuacao 
da fonte, aumentando sua retificacao, sua 
impedSncia e ainda reduzindo em cerca 
de 0,6 volts sua tensao de sai'da, o que 
pode contribuir para minimizar o aqueci- 
mento do regulador interno de tensao do 
computador. 



Figure 1 INSTAN-TK, esquema eletrico 



LISTADE MATERIAL: 

Quantidade Componante/Tipo Lsganda 

4 Diodo 1N4O02 D1, D2, 

D3 B D4 

1 L.E.D. dequalquar c6r LI 

1 IntBtruptor dt 1 POlo SI 

1 Jack femaa J1 

1 Jack macho J2 

1 Resistor d« 820 r:, 1/4 kV R1 

6 Pimai alcalinai da 1,5 V Bl 

6/1 Suporte isl para pilhac — 

1 Caixa plasties — 

Di versos: fio, soldi, placa da circuito imprano 
ou ponta da tarminaii, ate. 
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O L.E.D. (diodo emissor de luz) LI 
serve para se monitorar a atividade da 
fonte, apagando, quando ela nao estiver 
operando e atestando seu funcionamento, 
quando estiver llgada. O resistor R1 limi- 
ta o consumo do L.E.D, em cerca de 0,01 
amperes. ■ 

interrupter SI, alem de proporcio- 
nar a interrupcao da corrente, desligando 
q aparelho, tambem pode ser util como 
um RESET, pots nao tendo a inercia dos 
eletrolfticos da fonte, proporciona um 
rapido POWER-UP e POWER-DOWN. 

Os diodos D2, D3 e D4 formam, em 
serie uma diferenca de potencial tal que 
os 9 Volts proven ientes da associacao das 
pilhas acabam se equiparando aos vates da 
flutuaoao da tensao da fonte. Estes vales 
podem chegar prdximos a 7 volts, equili- 
brados com os 9 menos os 2 volts resul- 
tantes dos tres diodos. No prot6tipo, a 
d.d.p. foi de 0,015 volts, insuficientes pa- 
ra provocar uma descarga nas pilhas (que 
alicis andam bem carinhas). Estes diodos 
tambem impedem que os picos de tensao 
da fonte polari2em reversamente as mes- 
mas; fazem com que sejam ma is lenta- 
mente consumidas, aumentando sua vida 
"Citil. A impedSncia adicional que estes 
diodos criam, tambem contribui para re- 
duzir a corrente de descarga. 

As pilhas substituem a energia da fon- 



te automitica e instantaneamente apos 
sua falta, o que torna imperceptivel ao 
usuario e ao computador saber se esta 
consumindo energia da rede, via fonte ou 
das pilhas. 

Quando em teste, o INSTAN-TK foi 
capaz de suprir a ausSncia da fonte por 1 3 
horas e 56 minutos ininterruptamente, a 
um consumo constante de 600 mA no 
modo SLOW, pois verifiquei iigeiro declf- 
nio no consumo quando o computador, 
em modo FAST, nao mostrava a tela, 
Conclui-se entao que o consumo varia se a 
tela e mostrada ou nao e que o compu- 
tador consome menos energia em modo 
FAST e rodando um programa (sem mos- 
trar a tela) do que em SLOW ou durante 
uma instrucao PAUSE ou ainda parado 
(ocasioes em que a tela e mostrada). 

Condi goes de teste: 
Computador usado: TK82-C sem expan- 
sao de memdria. 

Caracteri'sticas das pilhas: 6 pilhas novas 
tipo aicalina, tamanho grande, 1 ,5 V cada. 
Circuito: INSTAN-TK original, aqui des- 
crito. 

Efeitos colaterais: nenhum efeito colate- 
ral foi observado sob condicoes normais 
de temperatura e pressao. 
Melhoras adicionais: melhor imagem, livre 
de interferencias da rede e menor aqueci- 
mento do computador. 




Dependendo da aplicacao espea'fica 
do computador, o tempo que o aparelho 
e capaz de substituir a fonte pode dimi- 
nuir com o uso de perifericos, tais como 
expansao de membria, impressora, etc. 
Se este for o seu caso ou se assim prefer! r, 
uma bateria de maior porte (e com eon- 
sequente maior potSncta) de 9 Volts po- 
dera' ser usada (como aquelas usadas por 
fotografos para flashes eletrOnicos, por 
exemplo), que ainda estar^ o aparelho na 
categoria de "temporariamente portatil", 
segundo os itens 1 e 2. Pode-se ainda usar 
pilhas recarregaveis, com a mesma vanta- 
gem da bateria de flash; longadurabilida- 
de e possibilidade de recarga. 

Por experiencia propria, me sinto em 
posicao de aconselhar a montagem e uso 
(ou so o uso) do INSTAN-TK pela sua 
grande utilidade, seguranca (esqueca a to- 



mada) e economia (de tempo e pacien- 
cia), E por falar em economia (o que agra- 
da a gregos e troianos e principalmente a 
cirabes e judeus) o aparelho tern a caracte- 
n'stica de nao inutilizar completamente as 
(caras) pilhas, que ainda ficarm com carga 
suficiente para fazer um rddio portatil 
fungonar (principalmente as alcalinas). 

A figixa 2 mostra um exemplo de 
lay-out da placa de circuito impresso do 
INSTAN-TK (que, alias, poderia muito 
bem ser batizado de JUMBO. Nao A ver- 
dade que os elefantes jamais esquecem?) 
com as devidas indicaooes de onde e co- 
mo montar os componentes. Aos pontos 
da placa marcados com +B1 e — B1 , solde 
os terminals do porta-pilhas, devidamente 
polarizados. 

Ate o proximo numeral o 
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Para nossa surpresa e grande satisfacao 
do nosso amigo e colaborador Nabor 
Rosenthal, recebemosa tempo para publi- 
car nesta edipao, uma solucao parcial do 
Quebra-Cabeca proposto no numero ante- 
rior. A proeza deve-se a Gamat Saty, que 
descobriu existir uma mensagem codifh 
cada na sequencia de pulsos recebida 

Ao que nos parece, ele nao teve tempo 
de analisar o conteudo da mensagem, de 
modo que continuamos aguardando que 
algum de nossos leitores a interprets e tra- 
duza as informacoes nela contidas (essa e 
a segunda parte do Quebra-Cabeca). 

Como todo "ovo de Colombo" a pri- 
meira parte desse Quebra-Cabeca pareceu- 
nos muito simples (depots de resolvida), 
pois 6 bastante ligico ao pensarmos em 
enviar uma mensagem ao espago, cons- 
truf-la na forma de uma matriz cujo nu- 
mero de elementos seja o produto de dois 
primos. Haja visto a mensagem enviada 
aqui da Terra, atraves do radiotelescdpio 
de Arecibo. cuja forma e a de um retSn- 
gulo de 73 linhas e 23 colunas Inumero 
total de elementos = 73x23 = 1679) - 
veja figura 1. Uma sequ&ncia de pulsos 
com essa caracteristica (numero de pul- 
sos = produto de dois primos) 6 muito 
mais facilmente transformada em uma 
matriz, visto que so h^ uma forma de se 
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fazer tsso! No caso de nosso Quebra- 
Cabeca, o numero total de pulsos e 931. 
Decompondo-o obteremos: 



931 

31 

1 



11 
31 



931 =31x31 



Ou seja, ele 6 exatamente o produto de 
dois primos! 

Veja, a seguir, como Gamal obteve a fi- 
gura a partir dos pulsos' 

"... A sequencia consiste de exata- 
mente 961 pulsos 10 e 1's) que for mam 
um quadro de 31 linhas por 31 colunas 
(31x31). 

O prime! ro programa apresentado, co- 
loca os numeros diretamente numa ma- 
triz AS(31,31) o que facilita em muito o 
programa, pore"m o programa numero 
dois, embora um pouco mais extenso, fa- 
cilita muito a entrada de dados, pois os 
mesmos entram de acordo com a sequSn- 
cia pub It cada na re vista, ou seja, a cada 
16 pulsos, sendo assim mais ficil carregar 
os dados. Os mesmos sao colocados numa 
matriz AS (16 x 16), logo em seguida rea- 
grupados numa matriz com uma imica li- 
nha e depois transformada em outra ma- 
triz (esta finalmente com 31 linhas e 31 
colunas). 



O quadro formado pela sequSncia de 
a 1's, indica o desenho de uma antena 
de micro-ondas ou mesmo um radio -te/es- 
cdpio, sendo possfvel se ver no canto su- 
perior direito, o logotipo do TK, 

Este desenho foi possivel, plotando-se 
um grafico a partir da matriz de 31 linhas 
por 31 colunas. 

Agora, pode-se fazer a opcao: 
Programa LGM1, mais curto e simples, 
porem os dados entram em uma linha de 
31 pulsos, apresentando certs dificuldade 
para se introduzir os dados da maneira co- 
mo foi publicado pela revista. 
Programa LGM2, que embora mais exten- 
so, facilita a entrada de dados, pois o mes- 
mo entra numa linha de 16 pulsos ■ 
A listagem da LGM1 

1 RFH GVSNf)L SRTV 

S REN L6H1 

ID I>1H HI 101,311 

IS FOR H-S TO 31 

2Q SCROLL 

?5 PR3N1 •■«»(";►>, 

30 SCROLL 

3S IMPl/T fit IN! 

40 SCBPl.i. 

* S PRINT Flf IN! 

BO SCROLL 

SS- PRIHT HOUUE 

GO IF JNKEY*=" 

65 IF INK!iY(i"S" 

7B NEXT N 

?? CLS 

75 REM itHHliliHIIliltilfli 

eo F«5T 

SS FDR 1 = 1 TO 31 

9H FOR J=l TO 31 

95 XF H$tJ,J!>"e" THEN PLOT J, 

I 

ied next j 

105 NEXT I 
11 PI 5TOP 
ISO 5HUE "LGH(J" 

13G PDIHT "TECLE '"GOTO 8B"" PR 
RR. EXECUTmi D pnOGRRHR EEH 

perder os n>noos" 

1*» STOP 



■ I I 



ERfitJ ? IE>/H) " 
THEN GOTO 6a 
THEN GOTO £B 



. . . Devido a certa pressa para enviar a so- 
lu?ao, acredito que no program a 1 
(LGM1J, nao digitei corretarrtente os da- 
dos, pais no LGM2, hi uma pequena di- 
ierenga no quadro formado que, ale"m das 
caracteristicas j4 mencionadas, apresenta 
tambe'm na parte inferior direita, a silhue- 
ta de um possivei ser (sera" o E. T.?\ ). Co- 
mo ja disse, o programa 2 apresenta intro- 
ducao de dados de maneira mais facil, 
por isso os dados foram recolocados neste 
programa e que por isso, acredito estar 
com o desenho correto. 

Devido a certa dtficuldade em chamar 
LGM2 regravei o programa em velocidade 
normal nas seguintes posicoes: 210-247; 
260-300; 310 '355". Gamal Saty - Uniao 
daVit6ria, PR. 



A linagem da LGM2 


3S0 
360 


STOP 

snuc ' LC-MH" 








370 PRINT "TECLE ■■"GCXTO 3B»"" P 


i 


REM GRMRL SB-TV 


RRfi EXECUTflR O PROCRRMR IEH PERE> 


a 


DEH OUtBRA-CRSECn L . G . M . 


EH Ob DflOOS" 


le 


CHH B»I61, 16) 


3oe stop 


se 


FOR M=l TO 61 




21 


SCROLL 




se 


PRIMT "R* t"; N; -1 -"; 




so 


INPUT R* (Ml 




so 

if 


PRINT ft* !N1 
SCROLL 


Figure 2: 


*i 


PRINT "©OCR TROCAR PL GO 1 






ir INKEY *■>-" THEN DOTO 49 








4& 






43 


IE INKEY*="S" THEN GOTO 21 
NEXT H 




zc 


90 


REH *-«*** + #*-»♦** + 9 « 1 9 1 " s *» * 








imm 


OIH 0(131,311 








lie 


LET E* = R*C1I 
FOR H=a TO 61 








120 








130 


let [:* = et<ot(Nj 




■ ■ 


"1 jF-^^ 1 ! 


140 


NEXT N 




■ 


lbO 


REM llllttltilllitllllillt 




•F 


JOCI 


let e=i 








ioa 


LET H=31 




_ 




BM 


FOR 1-1 TO 31 


■j ™ 




210 


LET nm=E»iO TO HJ 


1 ■ 


■* 4 IBI ■ 




Hi 


LET C=Ct31 




■ »B 




230 


LET H-H+al 


la 






24.0 


NEXT 1 






£60 


FtEvn **«* tttfltt*ttl1ttt*1li 


i ■ 






30 a 


FOR 1=1 TO 31 








Sit 


FOR J=l TO 31 






33« 
Z 
339 


IF E>» (1 , J> « "6" TMEN PLOT J, 






NEXT O 






340 


NEXT I 












J*jlJ 




"ii" 




1 1 1 1 1 
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"fl "D "fi D D D 6 D D £ 

■* - oo o 

— o - - o 
_. o - - o 

- o - o — 
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o - a o o 
O o o o o 
- o o o o 



o-ooo 
O o ooo 
— o o o o 

M ill 



ooo—— o o — — — Ooo — — ooO— — 
O-OOO— OOOOO 00--00 O O O O — 

p — Q — -* O —■ -* -* Q O — — O O O — O O 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I I I 1 1 



o — o o o 

o o o o o 

a o o o 



I I I I I 




] //T p\\ 



1(11 

110 1 
1 Q 1 1 

1111 



M 



dJ 



Ld 



1110[^ 

I 



Firjur.'i 1: 
Numeros de 1 a 19 



Numeros atdmicos do Hidrogenio, Carbono. 

Nitroijemo, Oxigenio a F6sforn. 



F6rmulas dos acucares e bases not nucleoli 
deos do DNA, 



50000°° oo O 




igion 
Hi i i m 



^J 



Numeros de nueleotfdeoi do DNA. 

Ftepresgntacao da estrutura do DNA 
Forma humans 

Altura da forma humana. 



Populacao jobre 3 Terra. 
Sistema solar. 



Ftadio-telescdpio de Arecibo, 



Diimetro do radiotelescopio. 



Mensagem enviada com o radiotelescopio de Arecibo, A esquerda. esta uma figura como a obtida pelo Gamal no TK a a direita, as informe- 
tous convenientemente interpretadas. 



O 
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ReLacao 

das lojas autorizadas 

arecefoer 

assinaturas 



ad. data com. serv. de 
informAtka ltda 

Rue Jofo Ramalho, 818 - SP. 

ALLCOLOR COM. E REPRESENTACOES 
LTDA. 

Rua Carlos Porto. 85 -Jacaref, SP 
CEP 12300 

BEL - BAZAR ELETRONICO LTDA. 

Av. Almirante Barroao, 81 - Lj. C - RJ. 

BRASIL TRADE CENTER COM. E 
PARTICIPATES S/A 

Av. Epitacio Pessoa, 280 - RJ - CEP 22471 

CASA DO M IC ROCOMPUTADOR SIST. E 
PROC. DE DADOS LTDA. 

Av. Anhanguera, 2574 - Centra — Goiania, GO 
CEP 74000 

CENADIN - CENTRO MAC. OCSENV. DA 
INFORMATICA 

Rua Jose Maria Usboa, 580 - SP 

CESPRO - CURSOS DE ESPECIALIZAQAO 
PROFISSIONAL LTDA 

Rua Republics Arabe da Siria. 15-S/207 
llhado Governodor, RJ-CEP 21931 

CHIP SHOP COMPUT ADORES LTDA. 

RuaO«lia.248-SP 

COMPUTEC LTDA. 

Rua Moirinque. 66 - CEP 04037 - SP. 

COMPUTER CENTE R 

MtCROCOMPUT ADORES mAq. E SIST EM 46 

LTDA. 

Rua Lopes Trovao. 1 34 - Slj. 247 Center V - 
Icarai - Niter6i, RJ - CEP 24220 

COMPUTER HOUSE - JOAo CANDIDO 
COLLADO 

Av. Andrade Neves, 1254 - Campinas. SP 

COMPUTRONIX VENDAS E SERVICOS 
LTDA. 

Rua Sergipe, 1422 -■ Bala Horiionte, MG 
CEP 30000 

DATA SOLUTION LTDA 

Av. Eusebio Matoso, 654 — SP 

DIDADOS INFORMATICA E ADM. LTDA. 

Rua Minas Gerais, 655. s/602 - DivinApolis, 
MG 

ELDORADO COMPUT ADORES E 
SISTEMAS LTDA. 

Rua Vijconde de Piroja, 351 - Lojas 213/4 - 
RJ-CEP 22410 

ELETROSOM LTDA. 

Rua da Concordia, 287 - Recife. PE 

CEP 50000 
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ENSICOM - ENG. DE SISTEMAS E COMP. 

Rua Marques do Herval, 409 - 19, s/15 - 
Taubate. SP - CEP 12100 

ENTEC REPRES. LTDA. 

Rua Lauro Muller, 700 - Itajai, SC 
CEP 68300 

EXATRON INFORMATICA E ELETRONICA 
LTDA. 

Alameda dos Arapanes, 841 - CEP 04524 - SP 

EXPOENTE COM. E REPRESENTACOES 
LTDA. 

Av. Siqueira Campos, 838 -*• CEP 57000 - 
Macei6, AL. 

GRUPO O.G.B. CONSULTORIA ADM. 

EMPHESARIAL S/C LTDA. 

Rua Dr. Murici, 706 - ala "B", 1? - Curitiba, 

PR 

A/C Sr. Dirceu Guimaraes Brito 

GUAQUMAQ - MAQ. E EQ. P/ ESCRITORIQ 
LTDA. 

Rua Antonio Gonealves Teixeira, 97 - 
Mogi-Guacu.SP 

GUARANI PRESENTES 

Av. Senador Vergueiro. 4964 - 19 - s/6 

Rudge Ramos. S.8. Campos, SP - CEP 09720 

HECTOR A. FERNANDEZ - MIRAGE CINE 
FOTO 

Rua Gat. Camara, 648 - Sta Barbara D'Oeste. 
SP- CEP 13450 

LIVRARIAPOLIEDRO 

Rua Aurora, 704 - SP - CEP 01209 

LOG COMPUT ADORES LTDA. 

Pea. Candido DiasCastejon, 34 - Slj. - 
S. Jose dos Campos. SP - CE P 1 2200 

MAPSS - ENG* COM. E IND. LTDA. 

Rua Gstulio Vargas, 186 - T. Otoni, MG 
CEP 39800 

MAURITINO PIRES SILVE1RA 

Rua Manduea Rodrigues, 924 - Sant'Ana do 
Livramento, RS 

MEMQCARDS - MATERIAIS DIDATICOS 
LTDA. 

Rua Amador Bueno. 855 - Ribeirao Preto, SP 

MICROBYTE SIST. E EQUIPTOS. 
COMPUTACIONAIS LTDA. 

Rua Buenos Aires, 41-39 - RJ. 

MKROCENTER COMPUTADORES LTDA. 

Av. Santos Dumont, 2749 - CEP 60000 
Fortaleza. CE 



MICRO CENTER INFORMATICA LTDA 

Rua Conde do Bonf im, 229 - Lj. 310/2 — 
Tijuca, RJ-CEP 20520 

MIC RODATA IMPLANT ACAO FISICA SIST. 
LTDA. 

Rua Montreal. 16 - SP - CEP 02832 

MICROESPACO COM. E REPRESENTACOES 
LTDA. 

Av, Barab do Rio Branco, 2288/1501 - Juiz de 
Fora. MG -CEP 36100 

MICRON INFORMATICA LTDA. 

Rua Benjamin Constant, 56 - si 804 - Vicosa. 
MG -CEP 36570 

MICRO PROCESS COMPUTADORES LTDA. 

Al. Lorena. 1310 - SP - CEP 01424 

MORGEN - COM. DE COMPUTADORES 

Rua Mai. Deodoro, 51 - Gal. Ritz. 149 
s/1405-A -Curitiba, PR 

NADAIS EQ. DE SOM LTDA. 

Rua Amador Bueno, 213 - Santos. SP 

NASA SHOP EQUIPTOS. ELETRONICOS 
LTDA. 

Rua "A". 1042 - Centra - Goiania, GO 

NUCLEO DE ORIENTACAO DE ESTUDOS 
Av. Brio. Faria Lima, 1451 - Conj. 31 
01451 - S. Paulo - Fone: 813-4555 

PROSERV PROC. OE DADOS CURSOS E 
REP. LTDA. 

Lgo. 9de Abril, 27 - s/628 - Ed. Cecisa II - 
Volta Redonda. RJ 

RC MICROCOMPUTADORES LTDA. 

Av. Estados Unidos, 983 - CEP 13400 - 
Piracicaba.SP. 

RITZ CINE FOTO LTDA. 

Rua Frei Caneea. 7 - Santos, SP - CEP 1 1 100 

SHOP COMPUTER CEDM LTDA. 

Av. Sao Paulo. 718 - Londrina, PR 
CEP 86100 

SIETEL SERV. INST. ELETR1CAS E TELEC. 
LTDA. 

Rua Cel. Joaquim Neto, 32 — Sta. Rita do 
Sapucaf, MG - CEP 37540 

SISCOMP SISTEMAS E COMPUTADORES 
LTDA. 

Rua Tiburcio Cavalcante. 298— Fortateza, CE 

TELEMATICA COM. E IND. LTDA. 

Rua F igueiredo de Magalhaes, 286 — s/61 6 
Copacabana. RJ -CEP 22031 

TELEVIDEO LTDA. 

Rua Marques do Herval. 157 - Recife. PE O 






PROG RAM AS 




TRANSITO 



Voce 1 se encomra de passagem em uma 
metropole, com urn trSnsito "de doido" 
seu objetivo e andar a maior quilome- 
tragem possi'vel, na avenida principal, evi- 
tando os outros motoristas que — veja 
s6! - insistem em seguir o caminho opos- 
to ao seu, sem respeitar sequer a mao de 
direcao! Alem disso, voce nao pode subir 
na calcada, sob pena de perder a carta de 
motorista e impedido de continuar a Jor- 
nada (nesta cidade, detestam forastei- 
ros. . .j 

Introducao do Programa 

Este programs possui urn trecho em 
linguagem de maquina. Para introduzf-lo, 
vocS deve inicialmente digitar o programa 
mostrado na figura 1. Neste programa, a 
linha 1 REM devera conter 50 pontos, 



1 














2 


FOB 1=16514 


TO 


1656£ 


a 


SCfJOLL 






■ 


PRINT I, " . . 






^ 


INPUT N 






B 


PR INT N 






7 


POKE I.. H 






3 


NEXT I 







fig. i 

Apos a introducao, digite RUN e intro- 
duza os numeros Idectmais) da listagem 
(figura 21. 






L. 



LISTRSEIi DECIMAL 




16S11. 


,4S 


V6515. 


.12 


16S16. 


.64. 


16517, 


. 17 


16518. 


. 114. 


16519. 


.2 


16520, 


.25 


16581 . 


.'r'SS 


t$522 . 


.6 


1S5.?J . 


.33 


1&S24 . 


.35 


16625 . 


.15 


16536 . 


. 253 


1655 - . 


.229 


Jt528. 


. 209 


16839. 


.225 


165 3s . 


. 14 


16531 . 


. 19 


lesaa. 


. e 


16533. 


.33 


16534 . 


. 126 


16335. 


. 13 


1653S, 


.27 


16537. 


.43 


16S36. 


. 15 


1653a. 


.230 


1&54-B . 


, 13 


16541 . 


.3? 


16=4.2. 


.245 


16S43 . 


.SC>1 


16544. 


. 6 


16545. 


. a'4 


1654,5. 


-4a 


16S47. 


.12 


16548 . 


.64 


; b549 . 


,33 


16SEB. 


. 136 


16SS1 . 


,ES4 


165S2 . 


. IIS 


16S53. 


.40 


less*. 


.s 


16555. 


.196 


le.-ss'i. 


.128 


16557, 


.119 


16S5S. 


.34 


16SSS. 


.sa« 


155GB. 


.16 


16561. 


.2*3 


lessa . 


.201 












fig. 2 



Ao terminar, digite LIST, A linha 
REM contera os varioscaracteresque cor- 
respondem aos c6digos em linguagem de 
maquina (figura 3). 



1 REM EtHKSl 7 ■ ; FR5T ,"57 « CLE 
OR FAST SSN LPRINT . t. - 5I4 PRINT 
TIW //E£HNI}7B->/ PRINT 1 NEXT TON 

3 FOB 1=16514 TO 16562 

3 SCROLL 

4 PRINT I; " . , "; 

5 INPUT N 

6 PRINT N 

7 POKE I,H 
« NEXT I 



fig. 3 
Digite POKE 16510,0 para evitar que 
vocfi distraidamente apague ou edite a li- 
nha 1 1 perdendo todo o programa em lin- 
guagem de maquina. Sua linha REM tera 
agora o numero e, desta forma, nao po- 
de ser editada, nem apagada. Lima vez to- 
mada esta providerrcia, apague uma por 
uma as linhas de dois a oito. 



OBREN ECRND17": Ffl*5T /57( CLE 
OR FAST SGN LPRINT . V5S4 PHIMT 
TUN ^VEeRHD7Bf?-' PRINT 1 NEXT TSN 



A seguir, digite o programa em BASIC 
mostrado na figura 4, 

O programa 

Ao terminar de digitar o programa em 
BASIC, digite RUN. Na tela voce vera as 
instrucoes. VocS pode escolher cinco ti- 
pos de trSnsito, digitando urn numero en- 
tre 1 e 5. Lembre-se: o numero de moto- 
ristas doidos que aparecerao na sua fren- 
te, e diretamente proporcional ao numero 
digitado. 

Para desviar-se desses malucos, utilize 
a tecla 5 para mover seu carro "$" para 
esquerda e a 8 para move'-lo para a direita. 
No canto inferior voo§ pode acompanhar 
a sua trajetoria, verificando o numero de 
quilometros percorridos. 

Caso voc6 consiga desviar dos outros 
motoristas, simbolizados por " g " ou 
subir na caicada, o computador, um seve- 
ro guarda de tr8nsito (mas que 56 pune 
quern e estranho na cidade, no caso vocS) 
Ihe impedira de prosseguir, tomando-lhea 
carta e indicando o local do acidente, 

Apesar de severo, o computador-guar- 
da Ihe darS sempre uma nova chance de 
recomecar, desde que volte ao ponto ini- 
cial da avenida. Se voce" aceitar, digite 
"S", se nao, "N". 

Boa sorte! Mas cuidado para nao ficar 
neurbtico. O 



MEMORIA OCUPADA: 

2.111 bytes 

bBrcm ECRnr>»?»: frst «>i cl« 

da FRST SGN LPWINY 



TRN ^/EeRND7 



<VS*4 PRINT 
17 /■ PRINT ( NEXT T«H 



1 REM HICROHOBBY 

3 COTO 2SJ09 

4 LET HS«e 

a rrno 

e cls 

10 LET x»l+ 

11 POKE >B41B..« 

12 print pt ai.e, - 
3T ay. 13 . "PQNToa a 



RFCOROE: ", MS 
" : RT 88.... a. 




30 PRINT RT 1,0; "OOOOOOOCCICOOP 

jQQOOoooooooooooooo" ; bt i,ii;"B 



40 NEXT I 

5i3 PRINT at 0,0; "0000000000000 

ooooooogooooooooooo" 

60 LET L-ll 

70 LET TI«B 

B0 REM COMEDO 
190 IF RND > ■ £ THEN GOTO 500 
lie LET AiUJR 16514 
12B PRINT BT 1 , L, '" 
130 PRINT RT 11, X 

140 LET X-X4-IINKEV«."8"1 - IINKEY 
•«"S"1 

141 ir PECK (FECK l«3g»+a56#PEC 
K 16397»331(K) (M36 THEN GOTO 10 

145 LET TI.TI»1 

146 PRINT FTT El,l3;"PONTOS:"jTI 
1SB PRINT BT l«,X;''l" 

170 IF RNIX5K THEN PRINT RT I„R 
NDfE+Lj "Wi" 

18B GPTO 100 

500 LET G-INT IRNO»8+3) 

S85 LET O'l 

SIC IF L»14 THEN LET CI c - 1 

SIB FOR F«l TO C 

SS0 LET n=U5R 165 14 

325 LET LiL+O 

530 PRINT «T 1, Li- 
BOC PRINT BT \i,Xi 

S40 LET X.X+ llNHEYfi"«"l - 1INKKV 
>>"5") 

S52 IF PEEK (PEEK 16395t255lPEC 
K 163B7 433 1+X1 l>156 THEN GOTO 1« 
00 

SSS LET TI.TI + 1 

557 PRINT «T ■ 1 , 1 3; " Pt»»TO»> " ; TI 

eee print rt 10.x; ■■»■■ 

Sae IF RNO16K THEN PRINT RT 1,R 
ND45+L: "0" 
S90 NEXT W 

SM COTO 10a 

1000 PHIKT RT 10.X-1; "■ ^.";RT 11 

,X-I; ■■ >•»" 

1005 FOR F-l TO 36 

10SB LET CiUSB 16S44 

1007 NEXT F 

1010 POKE 164 16,0 

1015 IF TllHS THEN LET M5.TI 

1020 PRINT RT Sl,»; "RECORDE: ",H» 

,P,T 23,B;"0UTRO JOBS I»y»l7'- 

103O POKE 16416, 3 

1040 IF IMKEVti"5" THEN COTO 6 

1050 IF INKEvi-"N" THEN STOP 

1060 COTO 1040 

2003 PEM INSTRUCOES 

seae print rt 0, a, "*»**•»#•*•• t 

RRN3ITO ttittlHH*' 

2030 PRINT HT a, O, "NESTE JOOO R» 

PRINCIPBIS","IN5TBUCOE5 5RD: " 
2032 PUNT 
S033 PRINT 
SE34 PRINT 

2040 PRINT ,,,,"S IHOUER PS ESDU 
EROR)","0 (MOUER Pf DIRerTR)" 

20S0 PRINT "SEU CRRRO E O "" I 

3060 PRINT "VOCE DEVE EUITRR OS 
Dl/rR08","CBUBOS, OURNDO ELE5 UIE 

rem;;,"ro seu en6ontro do tipo •••• 

i«?e> PRINT 

20S« PRINT 

IRS)" 

aese input sk 

a 100 IF SKil OR SKIS THEM COTO s 

090 

2110 LET SKmSK/lO 

Etao goto 4 

2130 STOP 

3000 5RUE "TRANSITO 

3010 RUN 

3020 STOP 



■ESCOLHR O TRRHSITO t 



% 4 
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Muitos de n6s provavelmertte ja tive- 
ram o desejo, ou talvez apenas a ideia, de 
aiterar, de alguma forma, a linguagem 
BASIC, para obter algum efeito especial 
no seu cornputador. maior problema re- 
side no fato de que, estando a linguagem 
gravada em ROM (e nao em RAM, como 
e feito em alguns com pu tad ores), nao e 
possivel aiterar o seu conteudo atraves de 
comandos no teclado, 

O primeiro impulse dos mais interes- 
sados seria o de fazer, ou mandar fazer, 
urn novo con junto de ROMs, com as mo- 
dificacoes desejadas, e substituir os origi- 
nals. Porem, uma pessoa mats criattva, 
que conheca urn pouco do hardware do 
Apple, logo lembrara 1 que existe o cartao 
periferico de 16K, que pode, sob corvtrote 
do cornputador, substituir a ROM princi- 
pal. Todo o seu conteudo pode ser trans- 
ferido a RAM do cartao, e as modifica- 
coes efetuadas por POKEs ou pelo moni- 
tor e gravadas num disco, 

A nossa equipe, pensando nisso, deci- 
diu tomar esse caminho, desenvolvendo 
um pequeno programs que serve como 
exemplo para os que quiserem fazer as 
suas modificacoes no BASIC. programa 
permite ao seu usuario aiterar as palavras 
reservadas do Applesoft, podendo substi- 
tuir, por exemplo, HOME por CLS ou 
PRINT por MOSTRE O programa, como 
o ieitor ja deve ter percebido, exige a pre- 
senca do chamado language card, o cartao 
de expansao de 16K, sem o que este nao 
funcionara" como esperado. Para os que 
nao tiverem este periferico, veremos, nos 
prdximos artigos, como atterar este mes- 
mo programa para permitir a modificacao 
dos comandos de DOS, que reside em 
RAM. 

O programa 

Antes de podermos entrar no funcio- 
namento do programa, devemos conhecer 
o formato em que estao armazenadas as 
palavras reservadas no Applesoft. A lists 
de 107 palavras se encontra gravada, se- 
quencialmente, a partir da posicao 53456. 
Elas estao codificadas em ASCII, com o 
bit 7 no estado 1 indicando o final de 
uma palavra. Como as primeiras palavras 
sao END e FOR, os primeiros 6 bytes sao: 
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posipao 


conteudo 


53456 


69 


53457 


78 


53458 


196 


53459 


70 


53468 


79 


53461 


210 



ASCII 

E 
N 

D 
F 

Q 
R 



O programa comeca colocando numa 
matriz as palavras reservadas, separando- 
as quando o codigo de um caractere e 
maior que 1 27 (bit 7=1), estando def ini- 
das, nas variaveis P e NP, respect iva me nte, 
a posicao de mem6ria inicial da lista de 
palavras e o numero de palavras na lista 
(linfias 100-140). Como a lista tern tama- 
nho fixo na memoria, nao podemos 
aumentar seu tamanho total, que e a so- 
ma dos tamanhos das palavras individuals, 
Para que esse limlte nao seja ultrapassado. 
a variavel NB mantem a contagem do nu- 
mero de bytes que sobram depois de uma 
alteracao. 

A seguir, o programa pede uma pala- 
vra, coloca um 1 no bit 7 da ultima letra 
(linhas 150-170) e procura palavra na ma- 
triz A$( ). Nao existindo, e dado um avi- 
so; se a palavra digitada existe na lista, e 
pedida uma nova palavra para substitui-la, 
com o cuidado de nao ultrapassar o tama- 
nho maximo da lista {linhas 180-200). 
A contagem de bytes sobrando e atualiza- 
da, o ultimo byte da nova palavra tern seu 
bit 7 igualado a 1 , somando-lhe 1 28, a pa- 
lavra e substitui'da na matriz, e a exe- 
cucao passa a linha 150 para pedir uma 
nova palavra ou terminar (linhas 210- 
220). 

No final, o usuario tern a opgao de fa- 
zer ou nao, a alteracao final no cartao de 
RAM (230). Se ele quiser faze-to, o 
language card 6 preparado para receber a 
copia da ROM e e instalada na mem6ria, 
um pequeno programa em linguagem de 
maquina para chamar a rotina MOVE do 
monitor, junto com os parSmetros neces- 
sarios para a sua execucao (240). Partindo 
da posicao P, a linha 250 POKEeia no car- 
tao de expansao, caractere por caractere, 
o conteudo da matriz de palavras AS{). 
O POKE da linha 260 faz com que o 
RAM do cartao substitua o ROM da me- 
mbria principal, tornando efetivas as mo- 



dificacoes feitas (ate que, e claro, seja des- 
ligado o cornputador). 

A linguagem modificada pode ser ar- 
mazenada em disco com um 

BSAVE nome, A$DM0, L$2FFF 

Depois. para reinicializar o cartao, exe- 
cute os seguintes comandos: 

POKE -16255,0: POKE -16255,0 
BLOAD name 
POKE - 16256,0 

E" claro que, se voce quiser incluir esses 
comandos num programa, o segundo co- 
mandodeve ser substitufdopor: 

PRINT CHR$(4); "BLOAD none" 

A I gum as observacoes 

1 . Quaisquer programas escritos ante- 
riormente a uma modificacao deste tipo 
na linguagem, nao precisam (nem devem) 
ser alterados, pois o BASIC nao armazena 
a palavra reservada e sim um c6digo que 
a representa no programa. 

2. Este programa nao deve ser utiliza- 
do num Applesoft ja modificado, a nao 
ser que se tenha complete contra le sobre 
o que esta acontecendo no cornputador. 

3. Lembre-se de que, se houver algum 
problems durante ou depois da execucao 
do programa de modificacao, o simples 
acionamento do interruptor do corn- 
putador o resolvera. 

4. Com algumas modificacoes, este 
mesmo programa pode ser usado para mo- 
dificar as palavras do DOS, sem a neces- 
sidade de se ter um cartao de expansao de 
rnemdria. Nos proximos numeros mostra- 
remos como f azfi-lo. 

5. Alguns leitores ja devem ter pensado 
em modificar as mensagens deerro. Utiti- 
zando uma tecnica semelhante (mas nao 
igual, devido a uma diferenpa que hi no 
armazenamento dessas mensagens) vere- 
mos, nos pr6ximos numeros. como fazer 
isso no Applesoft e no DOS. 

6. Comentarios dos leitores a respeito 
deste programa, ou de outros relaciona- 
dos ao assunto, serao bem aceitos pels 
nossa equipe. 






1 m tt TRAOUTOR DE PALAVRAS tt 


Ml ■ LEN (AKI)) ♦ NB: PRINT 




( ASC ( RIGHT* iBt.l)) + 121 




: PRINT "SUBSTITlir-LO POft ( 




): 60TO 131 


11983 PW KNTRO DO APPLE 


ATE' "iMLj- CARACTERESh'i INPUT 


231 


INPUT "POSSO FAZER A ALTERAC 


111 P ■ 53456;NP ■ 117 


"jBt:L = LEN (Bth IF L > 




« FINAL (S/N)? *;At: IF LEFTI 


111 DIM AKKPhNB = #:J = P - Is 


It OR L = • THEN PRINT CM! 




(At,l) * *N" THEN HOHE i PRINT 


HONE : PRINT TABt 4);'TRAS 


(7);; SOTO 211 




'NENHUHA ALTERACAO FBI FEITA 


UTDR DE PALAVRAS RESERVADAS* 


211 KB = NE + LEN (AMD) - Li IF 




- TERN I NAM.*; END 


: PRINT : PRUT « PRINT "AGU 


L = ! THEN AKI) ■ CHR* f ASC 


241 


FOR I = 1 TO 13: READ I,Y: POKE 


ma...' 


(Bti * 129): SOTO 151 




I,Y: NEIT It CALL 768 


121 FOR I = 1 TO NP:AKI> - " 


221 AKI) = LEFT! (Bt,L - 1) 1 CHR* 


251 


PRINT : PRINT "A6UAME..."i FOR 


13» J = J + UMdl « Aid) 1 CHRt 


161 IF LEN (At) « 1 THEN Al ■ CHR* 




I ■ I TO NP: FOR J = 1 TD LEN 


( PEEK (J)): IF PEEK (J) < 


( ASC (At) # I2B): SOTO 181 




(AKI)): POKE P, ASC ( NIDI 


12B THEN 131 


171 Al - LEFTI (Al, LEN (All - 1 




<At(I],J,i)l:P « P ♦ I: NEIT 


14* NEXT I 


M CHR* 4 ASC ( RI6KT* (Al 




1,1 


151 PRINT ; PRINT ; PRINT "SOBRA 


,1)) # 128) 


261 


POKE 49281,1: HOHE : PRINT ' 


N ■jNBf' BYTES.": PRINT a DI6 


1SI FOR I = 1 TD NP: IF AKI) = 




FIN DA ALTERACAO.': END 


ITE D CQflANDQ A ALTERAR --": 


At THEN li i 


271 


DATA 766,161, 769,1, 771,76 


PRINT ' <RETURN> PARA TERN I 


191 NEXT I: PRINT : PRINT "ESSA 




, 771,44, 772,254, 49281,1, 


NAP:': INPUT ";At: IF At ■ 


PALAVRA NAD EXISTS"} CHR! (7 




49281,1, 41,*, 61,2*8, 62,25 


" THEN m 


): SOTO 151 




5, 63,255, 66,1, 67,218 



FW9-cUt£4& 






Tio Fred List agradece a todos os que tern 
enviado pragramas e em especial a Gui- 
Iherme Nogueira Rodrigues o two liners 
enviado, cuja listagern vem a seguir. A coi- 
sa que esse programa cria esta mostrada 
na f igura em anexo. 

f REH BUI L KERNE N. RODRISUES 
SAO PAULO - SP 

1 HER2 | HC0LDR= 3: FOR X * I TO 

19t;P -It ATN It) / 45 I 
36* / 279 I As 12 « 12 ♦ 279 / 
19UP2 > 12 I ATN (1) / 45 t 
36* / 279 I 3 

2 Yl = SIN IP) t 95 ♦ 95:Y2 « COS 

(P2) I i!( + 159: HPLDT 12, Y 
1 TO Y2,I: NEIT 




Colaboracoes de Daniel Falconer e Jos6 Eduardo Moreira 
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Enviem suas colaboracoes para a "Se- 
cao Por Dentro do Apple" no seguinte 
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01296 -Sao Paulo -S. P. 
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PROGRAME SUAS FERIAS 
APRENDENDO BASIC E COBOL 
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TEL 


END 


CEP 


ClOADE 
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A FITA DO M£S 



TIG-COMP 




Gustavo Egldio da Almaida 



Tig-Comp 6 urn tfpico programa- 
ferramenta, cuja funcao (5 compilar os 
programas em Basic, ou seja, transformar 
os programas feitos orjginalmente em 
Basic, em programas de linguagem de ma'- 
quina do Z8(J, linguagem essa muito mais 
veloz queo Basic. 

Este software 6 comerciati?ado pela 
Tigre-Come>cio de Equipamentos para 
Computadores Ltda. 

programa nos foi enviado, gravado 
numa fita de boa qualidade, acompanha- 
da de manual explicative (Fig. 1 ] 




fig. 1 

Tig-Comp pode ser usado em todos os 
computadores compati'vets com a linha 
Sinclair, TK-82, TK-83, TK-85, CP-200, 
e outros. 

Testando Tig-Comp em alguns progra- 
mas desenvolvidos ou adaptados na nossa 
redacao, este veio a confirmar as expecta- 
tivas, provando ter urn bom desempenho 
apesar de haver algumas-restricoes, mas 
quase todas superaveis, 

A fita trabalha somente com numeros 
inteiros, na faixa de -32768 a 32767, 
sem operacoes com "Strings" e Algebra 
Booleana. 

Os comandos usados pelo Tig-Comp, 
saoosseguintes: 

ABS, CHR$, CLS, FAST, GOSUB, 



GOTO, SCROLL, SLOW, STOP, 
UNPLOT, USR e COPY (usando-se 
USR 2153). 

DIM Z(V) - A matriz deve ser unica, 
devendo ser dimensionado apenas um 
ARRAY sempre tendo o nome Z. 

FOR- NEXT - Seu incremento € sem- 
pre de 1 . 

Exempio: 

Maneira errada: 



Maneira errada: 



lO FOR C«l TO IB STEP S 
£e NEXT C 



Maneira correta: 



IB FOR C»l TO 10 
15 LET C.C+1 

ao mext c 



IF-THEN - 

Exempio: 

Maneira errada: 



to xf «=i on b=s then goto iee 



Maneira correta: 



le IF fl-l THEN GOTO ISO 

aa if bcs then goto lea 



LET: Este comando e restrito as qua 
tro operacoes (+, — , *, /) mais as seguin- 
tes funcoes: 

LET V = (PEEK U, USR U, ABS U, 
INT U) 

LET V = RND: Esta funcao e diferen- 
te da usada no seu micro. No TK, o 
RND gera um numero aleat6rio de a 1. 
No Tig-Comp, RND gera um numero 
inteiro de a 32767. Para compreender 
melhor o uso desta funcao, compare os 
exemplos: 



IB LET L-IHT <RNDf3«>J 



Maneira corra rs ; 



l* LET LoINT [RND/ 1 32767V3B) ) 

□u 

IB LET L = INT iRWD/ieJSJ 



Note que, nesta funcao 6 gerado um 
numero de a 32767, que deve ser dividi- 
do pelo numero que fari'amos variar, se 
usdssemos essa rnesrna funcao no Basic- 
TK: 

LET V = CODE INKEY$ - Assume o 
valor do c6digo da tecla pressionada. 

Exempio; 
Maneira errada: 



%m 


if 


lNKrv««' 


5" 


THEN LET 


fl-fl + 1 


Maneira corrsta: 






LET J.COOE INKEV* 
IF J«33 THEN LET «=. 


»*i 



NEW - Usa-se USR se desejar "apa- 
gar" toda a membria, incluindo acima da 
RAMTOP. 

Usa-se USR 963 para "apagar" at£ a 
RAMTOP, coma usado normalmente. 

PAUSE V - A tela nao oscila. valor 
de V tern que ser menor que 32768 e 
qualquer tecla pressionada durante a pau- 
se, provocara" a execucao do comando se- 
guinte: 

BREAK - Retorna ao Basic, 

PRINT - Podem ser usados: 
PRINT AT, "STRING", VARIAVEL, 
CHR$, podendo os mesmos serem com- 
binados. 
Exempio: 



I'd PRINT RT 18 , 16>; "KICBDHtCfl" 
1.1 , t«J •■MICROHDBaV" 



r~ 




f Av. Pmioi, 101 - S«/« j 603/508 
TW: 263-1024 . CCP. 2005 1 



moe \ 

-H.J.J 



mcuttsosi 



Basic 

' Assemble* Z 80 
• apostilas gratis 
• aulas p rati c as 



i SOFTWARE i 



* Jogos e apllcativos 
* Deservvotvimenlo de 
alstsmaa proprios 



I HARDWARE 



I MtCROCOMP 



•Tecladose 'Llnhaa: 

" InleHacea para • SINCLAIR 
linha SINCLAIR, TK 82. • TRS 80 
TKB5eCP2O0 • APPLE 
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Agora apresentaremos um programa- 
exemph, mostrando-o primeiramente em 
Basic-TK e, poster iormente, o mesmo 
programa ji com as respect ivas modifica- 
coes, podendo ser compilado pelo Tig- 
Comp. 

Antes rje tudo, devemos earregar o 
Tig-Comp com o comando LOAD " ". 
Carregado o programa, devemos deletar 
todas as linhas menos as de numeros 
0, 2, 3 e 4; que serao usadas pelo compi- 
Isdor. 

Seu programa podera" entao ser digita- 
do a partir da linha 5.Vamos ao programa 
exemplo: (Figura2) 




para sua aceitacao no Tig-Comp. 

Especial atencao as linhas 30, 32, 35 e 
65, (Figura3) 

Ap6s digitar-se o novo programa, tere- 
mos que compila-lo, oil seja, transforma- 
lo de Basic para linguagem de rrriquina. 

Para issotemos que acionar oTig-Comp 
atraves do comando direto, ou seja, sem 
numero de linha: 



LET L = USR 17389 



Agora, atencao: na figura 3 mostrarnos 
esse mesmo programa, modif icado apenas 



E- REH METEOnO 

io pen c-usthvo egidio oe 

flLMEIDfl 
IS LETT Br)l 
BTI LET R-1B 
SS LET C*C 
30 IF tWKEV*. 



THEN LET B^S- 



35 IF INK FY*. 



THEN LETT B=»* 



37 IF EtCB THEN LETT £1 ■=» 

39 IF Et)29 THEN LETT B-S9 

*8 PRINT RT fl,B;"8";BT R,B," " 

*5 LET C=C + 1 

5B PRINT RT R+1,B; 

SS IF PEEK (PEEK 1E39S+2E6+PEE 
K 16399 S * > a THEN GOTO 75 

60 SCROLL 

6f5 PRINT RT EB,INT (BNOtMl ; "I 
■;RT 20,INT (HNC*3C1 ;■•*"; OT Si), I 
NT <RND*30J ; "»" 

70 GOTO 30 

75 PRINT HT SB, 7, "POsn-OS ";C 

BO PRINT BT 51,*, "OUEB JOGRR !> 
C NOUO *? tS^Nt *■ 

OS IF IKKEY«."S" THEN GOTO 199 

SB IF INKEY»«"N" THEN PRINT RT 

18,1?, 'EEBT* 
9S GOTO £5 
IBS CL.S 
IBS OOTO IS 



s REn mcteoro 

IB REH GU5TSUO EGItMO DE 

PH-liEIDB 

IS LET Et=10 

aa LET R.IO 

SB LET C=» 

3B LET JOCOSE INKPTI 

3C IF iJ-33 THEN LET 6=B-1 

33 IF J = 3S THEN LET e«6tl 

37 IF BtB THEN LETT BiO 

3B IF B)S9 THEN LET f.=29 

*3 PRINT RT R,S, "H"; RT fl,B; ' " 

4-5 LET C = C.l 

5B PR INI AT ft*l,e; 

55 IF PEEK (PEEK l»29^t2S6»PEE 
K 1B399I <)« THEM SOTO VB 

E.3 SCROLL 

65 PRINT ST SB, INT <RND^t»93> : 

■■*", RT ae^lNT rRNO/iB92i; "I'.nT 

SB,IKT IRND/1092), "I" 
70 GOTO 30 

75 PRINT ST a», 7j ■'PONTOS ";C 
SO PRINT RT Sl.B; "iiJER UOGHR O 

e nowo 7 rs^Nj •■ 

S3 LETT J=CODE INKEY( 

SZ IF JiSS THEN 60T0 1BO 

ag IF J«51 THEN PRINT RT 19,19 



fig. 2 



95 GOTO S3 

IBB CL5 

1 OS GOTO IB 

110 5T0P 



fig. 3 



A operacao de compilar e rapida, e 
apos o comando acima, sua listagem apa- 
recera na tela em forma de SCROLL. 

Essa operacao se repetira tres vezes e 
logo apos isso, aparecera no canto inferior 
da tela o c6digo 0/0, finalizando a opera- 
cao do compilador, A partir deste mo- 
mento, seu programa ja estara compilado. 

Se seu programa foi verificado, atenta- 
mente, em Basic, poucos erros surgirao. 
Caso isso ocorra, surgira umE in verso, so- 
bre ou pr6ximo ao erro cometido. 

cursor e transposto instantaneamen- 
te a linha nao identificada pelo compila- 
dor, faltando somente editar e corrigf-la. 

Depois de compilado, o programa deve 
ser tratado corno uma rotina em lingua- 
gem de maquina e, para aciona"-lo, usa-se 
o comando LET L = USR 18823 O 



ERRATA 

O ESOUIRDGR, MICROHOBBY 1^6 

PI NEUE DO ESOUIhDOR REfiLMENTE 
ERR "FOFfl" E DESLIZQU SOBRE NOS. 
R "RURLflNCHE" SE DEUE RO FflTO DE 
TERMOS OMITIDO OS CODIGOS DE 
LINGURGEri DE MhOUiNH DR LINHft 
REM.BRSICRMENTE NRO Hft* PROBLEMR 
EM COPIR-LR CRRRCTERE POR CRRRC- 
TERE (UEUR ■DESGRILRNDO" DO N" 5) . 
POREM, UM DOS CftRRCTERES E5TR* EM 
INUERSO E RLGUMHS REVI5TRS PODEM 
TER SRXDO COM UM PESUENO DEFEITO 
NR XMPRESSRO, IMPED INDO SUR LEI- 
TURR. 

HSSIM OS CODIGOS SRO : 



16514.. . ,+a 


16515. . . IS 


16S16. . .64 


16517. . .229 


16S18. . .17 


16519. . .33 


16520 . . .0 


16521. . .25 


165SS . . .£09 


16523. . .1 


165S4 . . .234- 


16525 2 


ISSae, . .£37 


16537. . . 176 


16538 . . .201 





TERMINE 

COM O LIGA-DESUGA DE SEU MICRO, 
VIDEO-GAME, VIDEO-CASSETE, ETC 

USE A CA/XA DE 
DISTRIBUICAO CD- J- 7 




Gompattve) com: 
TK82, TKS3, TK8S e 
TK2000, CP200, 
CP30Q e toda a 
linha APPLE. 




VENDAS 



IS 



cromatecnica 

laboratorio de \ifdeo ltda. 

n. Florencio deAbreu, 157- 6° -Cj. 604- Tttf; 228-2598 - CEP 07 023- SP 



NOME: 



END.: 



CEP 



CIDADE: 



ESTADO: 
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OS OITENTA 




UM EDITOR DE CARTAS 



Ultima Pwtt 

As funcoes de "fatiamento" de strings, 
tamb^m conhectdas por funcoes slicings, 
sao convenientes para qualquer programa 
de processamento de textos. 

Estas funcoes permitem ao compu- 
tador "quebrar" uma cadeia de caracteres 
em pontes determinados. Estas funcoes, 
associadas com as outras que descrevemos 
anteriormente (Microhobby numero 6), 
nos permite isolar qualquer grupo de ca- 
racteres numa string e executar funcoes 
com eles 

RIGHTS, MIDSe LEFTS 

As funcoes RIGHTS, MID$ a LEFTS 

sao responsdveis no TRS-80 e na maioria 
dos computadores (mas nao no TK) pela 
slicing. 

RIGHTS (string ou varMvel string, n): 
esta funcao fornece os ultimos caracteres 
da string, ou seja, os n caracteres a direita, 
contados a partir do ultimo. 

Por exemplo, no programa: 

10 LET AS = "CERTAMENTE" 
20LETBS = RIGHTS (A$, 5) 

30 PRINT B$ 

computador exibira' na tela: 
MENTE 

LEFTS (string ou vartevel string, n): 
fornece os n primeiros caracteres de uma 
string. 

Por exemplo, no programa: 

19 LET AS = "CERTAMENTE" 
29LETB$ = LEFTS (AS. 5 J 
34 PRINT BS 

computador exibira na tela: 

CERTA 

MIDS (string, ou variavel string n, mi: 
fornece urn trecho da string de compri- 
mento n a partir do caractere m. Por 
exemplo, o programa: 

10 LET AS = "CERTAMENTE" 
29 LET BS = MID* (AS, 3, 4) 

31 PRINT BS 

exibira' na tela: 
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TAM 

Alem destas funcoes, podemos juntar 
pedacos de strings ou strings inteiras por 
meio da operacao de concatenacao ou so- 
ma de strings. Esta operacao "soma" duas 
strings e fornece como resultado uma 
string com os caracteres justapostos, Por 
exemplo, o programa: 

10 LET A$ = "CERTA" 
20 LET B$= "MENTE" 
30LETC$ = A$ + B$ 
40 PRINT C$ 

exibira na tela: 

CERTAMENTE 

O slicing no TK-83 

No TK 83 e seus compati'veis 6 pos- 
si'vel fazer o "fatiamento" de strings usan- 
do-se um recurso muito interessante: a 
pr6pria posipao dos caracteres. 

Se voce conhece bem o TK, deve estar 
lembrado que cada caractere ocupa uma 
posicao de mem6ria numa variavel string. 
Cada uma destas posi^oes de memoria 
tern o tamanho exato de um byte. O 
BASIC do TK permite que tenhamos 
acesso a cada um destes bytes. Por exem- 
plo na figura 1, mostramos um programa 
em BASIC TK que nos permite acessar 
um a um os bytes da string "CERTA- 
MENTE". 



IB LET R*»'CEaTRHENTE" 

£■> POR I»l TO lO 

3ffl PRINT THB [l?);B»m 

*a NEXT I 



Com este tipo de artif icio poderemos 
simufar no TK, as instrucoes RIGHTS, 
MID$e LEFTS. 

RIGHTS: no TK, devemos usar artif i- 
cio que faca o computador considerar a 
string de um ponto qualquer ate o final. 
Para isso, basta fazer: 

LET B »=«»(« TO ) 

onde AS e B$ sao variants strings, e N e 

um numero inteiro. Repare que ap6s o 



Igor Sartort 

TO (SHIFT 4) nao aparece niimero al- 
gum. Assim, o computador considera a 
string a partir do caractere N ate o final. 
Experimente agora o programa da fi 
gura 2. Ele fornece todas as partes de uma 
string, que podem ser obtidas por este ar- 
tiffcio. 



1* UET fl»-:"Ce»TFiriEMTE- 

20 FOR I»I TO IB 

38 PRIMT fl*<I TO 1 

la NEXT I 



CEHTflHFMTE 

eRTBMEHre 

RTRMENTE 

TflHENTE 

RMENTE 

HENTE 

ENTE 

NTC 

TE 



LEFTS: basta fazer com que o TK 
considere uma string a partir de primeiro 
ate o "enesimo" caractere. Por exemplo: 

fcET B*~n«<X TO N> 

onde N sign if ica o numero de caracteres 
que desejamos na string. programa da 
figura 3 e um bom exemplo de como as 
coisas ocorrem no TK. 



IB LET S«. M CEBTflMEMTE" 

SO FOR 1-1 TO 10 

39 PRINT Hill TO I) 

*e> netxt x 



c 

CE 

cen 

CERT 

CERTR 

CERTflH 

CERTfiME 

CERTRMEN 

CERTfiCEMT 

CERTflHEMTC 



MIDS basta fazer com que o TK con- 
sidere uma string a partir de um caractere 
tambem determinado, Por exemplo: 



LETT B(--nHH TO H> 



onde N representa o primeiro caractere 
considerado e M o ultimo. programa da 
figura 4 mostra um exemplo de aplicacao 
para este tipo de instru?ao. 



!• LET BtP'CIRTOMEIITE" 

so tor x^z to a 

3» PRIMT BKI-1 TO 1 + 1} 

40 NEXT X 



EWT 

RTS 
T«M 



MEN 
ENT 

wre 






Tanto no TK como no TRS-80 estas 
furnpoes podem ser associadas a outras pa- 
ra se calcular a posicao dos caracteres de 
uma string. 

tmplementando o Editor de Cartas 

Com o 'conhecimento que ja temos, 
podemos traduzir o programs do TRS 80 
para o TK. Na figura 5, mostramos uma 
listagem de como o programa ficou ap6s 
nossas traduces. Evidentemente, corta- 
mos uma parte dele para simplif ic3-lo. To- 
davia, as alteracoes que fizemos nao fo- 
ram muito profundas e podem ser incre- 
mentadasna listagem final, 

1 REM EDITOR 

to let e-a 

30 DIM H«(SB,331 

IB PRINT "TBttflNHO MR*.. DB U1NM 

R>3S LET««3" 

L3Q PSIMT " INSTrnjCCtS" 

140 PRINT " INTROOUZR R5 LINHRS 
1 B J." 

150 PHIKT "PS CDRaiGin 1 LIMHB" 

160 PRINT "CICrTE'"l""E O SEU N 
I ■ . 

17B PRINT 'UISITE FIM MRP PBfiB 
»- 

171 PRINT -ODO H TEL.R E5TIUER C 
HE IR - 

173 PRINT "PIlirTE COW" 

175 PftU^E 3BS 

176 cls 

lSB FOR X=I TO IBS 
130 LE1T Z = X 

=ea print "j";x 
aie iNPirr ri ixj 
sis print misi 

220 IF Rf (X . 11 =" >~ THEN GOTO 45 

a 

23<3 IF P.*(X,1 TO 3I«~FIM" THEN 

goto see 
asa nest x 

see CL5 

340 FOR Brl TO X-l 

3S© PRINT rat IS) 

4.40 STOP 

4.50 BFH ROT IMP. DE CCIHRECRO 

460 LET V.UFIL ft|(X,3) 

47© PRTMT - SELECSC"" 

4.71 PRINT •■e-HtTRCClUIin" 

47S PRINT " I-COBHECRQ" 

475 INPUT fl 

17E CLS 

4S0 IF T<0 OR R>1 THEN GOTO 470 

430 GOTO ',nO(ni28 

seei let Bf (vi «■■■■ 

SBS INPUT IT» IV 1 

SB6 PRINT R* [VI 

SIO LET K=X-1 

5 11 GOTO 259 

E2B LET T=LEM BBitVl 

53B LET C=l 

94.0 LET H*6 

5SO LETT Q* = INKEY* 

56e IF 6««"B" THEM SQSUB 1000 

S70 IF Cif; = "£>" AND C i.T THEN GQ5 
UB 2BO(5 

SBB IF 0*.'*I" 

590 IF Ot""E" 

sea IF o*="L- 

€»£0 GOTO 5Se 

4BB STOP 

loais REM HOSTRR CRRRCTERES 

1BBS IT OT THEN SOTO 550 

181B LET Hs.M+1 

1020 LET C = C + 1 

1040 LET I| = H»(Y,MI 

less PRINT 1$, 

l«ao RETURN 

2B00 REM DELETB CRCTCHE 

BO 10 LET RS (VI .(HIV. 1 TO C-ll+fi* 
(Y,C*1 TO J 

?Baa RETURN 

30Q0 REM XNCLUE>flO 

3B1B infill Jf 

3B20 LET B»1¥I,H>IV,1 TO C V)+J* 
+ P|*[Y,C TO (32-C-LEN J*>> 

3030 RETURN 

4 030 REM ESCBPE 

402© Pv*IMT 

40 3© PRINT Fi*(Vl 

40AB LET H$IX1«"" 

iBSB LET X-X-l 

1BRB GOTO ^LO 

5B0CI REM MOSTRH LIHHO 

SB1B PRINT R$IY.C TO 1 

O02B LET Hb9 

S83B LET CI 

SOifc 1 RETURN 

Vamos, agora, descrever algumas das 
alteracoes que foram necessarios para que 
programa "rodasse" no TK. 

A primeira aiteracao importante esta" 
na linha 30. Nsla ao inves de fazermos: 

DIH flfllPBI 



fizemos: 



THEN SOSUB ';88fl 
THEN GOSUS 4030 
THEN GOSUS E0O0 



Isso porque limitamos o numero de li- 
nhas 3 20, com 32 caracteres No TK, o 
ultimo fndice de uma matriz string e o 
indicativo do tamanho ma'ximo que cada 
variavel, que faz parte desta matriz, pode 
ter. Assim, no nosso caso, A$(20,32) sig- 
nifica que temos uma matriz com 20 va- 
riaveis, contendo 32 caracteres cada uma. 
segundo fndice & usado no slicing indi- 
cando ao computador queaquela variavel 
possui um comprimento max i mo (no nos- 
so caso, 32). Cuidado entretanto com as 
"atribuiooes procustianas". 

As Atribuicoes Procustianas 

Uma das coisas que mais tern "grilado" 
os possuidores do TK-83 e seus compati'- 
veis 6 que, nos manuais de muitas destas 
maquinas, aparece uma frase com mais ou 
menos este conteiido: "As atribuicoes de 
uma variavel string so podem ser procus- 
tianas". 

Isso apareceu no manual, porque seu 
autor conhecia muito bem Mitologia: 
Procustes era um gigante que raptava as 
pessoas e as colocava deitadas numa ca- 
ma. Se a pessoa fosse menor, ele as esti ca- 
va ate' que ocupassem todo o lei to. Se fos- 
sem maiores ele cortava suas pernas no 
comprimento da cama. E o que acontece 
com a atribuicao de variaveis no TK. 
Quando vocfi dimensiona um variavel com 
DIM A$(10), ao atribuirmos uma string a 
A$, o computador sempre considera a 
string com dez caracteres (o valor do fndi- 
ce): se a string for maior, ele corta os ulti- 
mos caracteres; se for menor, ele preen - 
che o que falta para completar, com es- 
pacos em branco. Experimente rodar o 
programa que mostramos na figura 6 para 
entender melhor o que ocorre. 



IS DIM Bi(lB) 

20 LET F,* = 'PRRHLELEPTPEDO" 

30 PRINT R*,LEN fl» 

40BLET nt>"pnenLELO" 
S0 PRINT Bt.LEN R* 



dim f*t (se,3a) 



Como voo§ deve ter notado, as atribui- 
ooes deste tipo fazem com que as strings 
tenham sempre o mesmo comprimento 
Levando isso em consideracao nao pode- 
remos, em hip6tese alguma, controlar es- 
tas variSveis pelo seu comprimento, co- 
mo fizemos no TRS-80, 

Outras modificacoes 

Algumas modif icacoes sao 6bvias e nao 
as comentaremos (basta que vooS d§ uma 
olhada na listagem queapresentamos nes- 
te numero e na listagem que apresenta- 
mos na Microhobby 5). 

Devido as "atribuigoes procustianas", 
eliminaremos a parte que verifica se uma 



linha digitada excedeu o tamanho m^xi- 
mo. Desta forma, se uma linha for excedi- 
da, o computador desconsidera o trecho 
a mais. 

As rotinas de correcao foram substituf- 
das por sub-rot inas. Atencao para a sub- 
rotina que mostra os caracteres, uma vez 
que o BREAK do TK estd na mesma tecla 
que o espaco, usamos o numero para fa- 
zer esta funcao. 

Com o que descrevemos neste e nos 
numeros artteriores, com um pouco de 
atencao, vooS pode analisar uma a uma as 
rotinas de correcao de erros. Note que 
nao fizemos uma rotina para (^-backspace 
(retorno do cursor sem apagamento de 
caracteres). Para isso, devemos lancar mao 
de uma rotina em linguagem de maquina. 
Isso fica como uma sugestao para que vo- 
ce desenvolva uma e nos en vie como cola- 
boracao (seforem BASIC, melhor ainda). 



Como qualquer outra sefao desta revista, 
a sefSo Os Oitenta esta aberta is colabora- 
(oes, desde que estejam derttro do seu espi- 
rito: artigos voltados para o TRS-80, de pre- 
ferSncia sem mencionar-se discos ou lingua- 
gem de maquina, muito bem explicados, 
com data/has tecnicos para qua o usuSrio do 
TK possa aprander um pouco mais de pro- 
gramacao e conhecer uma outra maquina. 
Daremos preferSncia a artigos e programas 
que procurem aproximer as dua$ m4quinas, 
mostrando suas semelhancas a diferencas. 



INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMATICA 




CURSOS 
LINHA IBM (Apoio Marcodata) 
OS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1- COBOL: TECNICAS E 
OTIMIZAQAO 

MICROINFORMATICA 

BASIC - ASSEMBLER - PASCAL 

LOGO-CP/M-VISICALC 

dBASE II -WORDSTAR 

FORMACAO DE PROGRAMADORES 

DURAgAO: 9MESES 

CPD-ORT: IBM 4341 COM TERMINAIS 
LABORAT6RIO DE MICROS 

TREINAMENTO IN HOUSE 

SOLICITE INFORMAC0ES E 
FOLHETOS EXPLICATIVOS 



?UA DONA MARIANA - 213 ■ BOTAFOGO 
TELS: 236-3192- 246-94?3 
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CURSO DE ASSEMBLY 
aula 6 



3101100111111 


.^0©00©ll(e, 


,1011101k.. 


3110111191000 


.11011001011 


.0010011110V 


iiPt&t&tta ^ i *J0 1111 


31002 00101 


0010P " " 10110 


^00101" 


311QQ noes 


1.0110 101S. 


J30001<" 


t©10G, 1110' 


1000 3 10111 


J11110 r 


■^011110110' 


0010C 301BG 


^01000' 


U00000011 


100©£ 11006 


-01110J 


/0ia0P"»i 1101. 


0010S 101S1 


.IS 11 IP 


01 12/ ',0111 


1001G 1001G 


11101P 


111S 000© 


10111 one; 


00(30 1 W*tB 110 1 iSkri 


316SL aien 


01111 .11011 


0000100110010 


100000110010P 


10111101000' 


0000100000101 


^tieieiniv- 


' 11100013 ' 




-"*<»*» - -- 


Flavio Rossini 



Iremos agora fazer "contas" com os re- 
gistradores, assim como fazemos em 
BASIC, com as variaveisdeum programs; 
entretanfo, a linguagem de maquina per- 
mite fazer diretamente apenas contas de 
soma e subtracao e, como vocS id deve ter 
notado, lida apenas com nuimeros inteiros, 

Vamos indic3r com as instrucoes de 
adicao de registros e de pares de registros: 
(Tabela1)e(Tabela2) 



INSTRUCOES 


CCiDIGO 


ADD A.A 


'87' 


ADD A,B 


■80' 


ADD A.C 


'8V 


ADD A,D 


'82' 


ADD A,E 


'83' 


ADD A,H 


■84' 


ADD A.L 


•85' 



Tab 1 



jmsthucoes 


CODIGO 


ADD HL.BC 
ADD HLDE 
ADD HUHL 


'09' 
'19' 
'29' 



Tali. 2 

A ifttirucfo ADO antra rtgistrov 

que significam: some o conteudo do regis- 
tro ou par de registros da d ireita com o da 
esquerda e conserve o resultado no regis- 
tro, ou par de registros da ESQUERDA; 
os registros da direita, portanto, NAO sao 
alt'erados. Em BASIC, uma analogia pode- 
ria set feita com: 
LET X = X + Y 

Nova men te notamos o registro A, ou 
seja, o ACUMULADOR como sendo pri- 
vilegiado; de fato, ele e o "alvo"cfe todas 
as opera fdes aritmeticas entre registrado- 
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res ou entre registradores e memdria. per 
manecendo nele o resultado da operacao. 
No caso de par de registros, o par privile- 
giado e o HL Assim, qualquer operacao 
aritmetica DEVE utilizer o acumulador 
ou o par HL. 

Vamos entao tentar somaro conteudo 
do registro D com o registro £ com uma 
subrotina em linguagem de mdquina (Ta- 
bela3). 

Note que a soma nao pode ser feita di- 
retamente\ Devemos obrigatoriamente 
usar o ACUMULADOR. Coloque entao o 
programs na mem6ria e execute-o (usan- 
do HEXAMEM, publicado na edicao n0- 
mero 4 e na numero X, que condensa os 
melhores programas publicados na MI- 



CROHOBBY) Voce devera obter o nu- 
mero 100 (= 34 + 66) ! Provavelmente de- 
ve ter surgido na sua cabeca, a seguinte 
pergunta: e se a soma der maior do que 
255 (ou seja FF'J que e o miximo que 
cabe num registro? E no caso de pares de 
registros, se o resultado for maior do que 
65535 ['FFFF')? 

De fato, em BASIC quando uma varid- 
vel estoura o limite maximo do compu- 
tador, o programa para e aparece uma 
mensagem de erro. 

Para ver o que acontece em linguagem 
de maquina, facamos um exemplo: vamos 
carregar o registrador BC com o valor ma- 
ximo e somar 1 . (Tabela 4). 



MEM. 


30(308 


LD E,34 


"IE22 1 


MEM. 


38002 


LD D,66 


'1642' 


MEM 


331)04 


LDA.O 


*7A' 


MEM. 


33305 


ADD A.E 


'83' 


MEM. 


39006 


LD C,A 


'4F' 


MEM. 


30007 


LD8.0 


'06W 


MEM. 


33009 


RET 


'C9 


Tab. 3 









; copia D em A 

; soma E com A, ou seja, com D 
; copia o resultado em C 
; coioca em B para a sai'da do pro- 
grama 

Program* para tsmar oi reginrai O a E. 



MEM. 

MEM. 

MEM. 

MEM. 

MEM. 
MEM, 

T»b. 4 



30000 

30003 

30006 

30007 

30008 
30003 



LD HL.1 

LO BC65535 

ADD HL8C 

LD E,H 

LO C,L 
RET 



'2101 00' 

-'01 FFFF* 
'09' 



■4D' 
'C9' 



; coioca 1 em HL, ou seja, "00OT 

(note que devemos completar 

os 2 bytes de dados) 
; coioca o valor miximo em BC, 

ou seja. 'FFFF' 
;soma BC com HL,o resultado 

fica em HL 
; coioca H em 8 e L em C para 

poder ter o resultado na tela 



Soma da 6SS35 com 1 . 






Voc£ obte'm como resultado o numero 
0! De fato, pensando em hexadecimal (re- 
vista numero 4 e numero X de Micro- 
hobby), ao somar "]' ao nirmero 'FFFF' 
deveri'amos obter '10000'; mas veja. este 
ultimo di'gito "nao cabe" nos regis- 
tros! Quando isto ocorre, dizemos que 
houve um "vai um" ou CARRY, assim 
como ocorre ao somarmos, por exemplo: 
1 
19 

+ _!8_{9 + 8 = 17 J vaium. . .) 
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microcomputador assinala este acon- 
tecimento em um bit chamado CARRY 
que faz parte de um registro INTER NO 
chamado F o qual nao podemos usar 
DIRETAMENTE. Este registro armazena 
bits para vartas informagoes (usualmente 
estes bits sao chamados de FLAGs), As- 
sim, sempre que executarmos uma instru- 
cao de ADD, o bit de CARRY e calcula- 
tion se houver "vai um" ele resulta J , caso 
contrario 0. 

Podemos usar o valor deste bit para fa- 
zer contas corn numeros maiores do que 
255 ou ate mesmo maiores que 65536. 
Para isto, usaremos a instrucao ADC que 
e abreviacao de "ADD WITH CARRY" 
ou seja, some com o CARRY, que sim- 
plesmente adiciona ao resultado obtido 
de uma soma, o valor do CARRY. Tere- 
mos entao as seguintes instrucoes: (Tabe- 
la 5). 



INSTRUCAO 


CODIGO 


ADC A,A 


■ar 


ADC A,B 


■aa- 


ADC A,C 


'89' 


ADC A.D 


'8A' 


ADC A,E 


'8B' 


ADC A,H 


'8C 


ADC A.L 


'8D' 



INSTRUQAO 


CODIGO 


ADC HL.BC 
ADC HL.DE 
ADC HLHL 


'ED4A' 
'ED5A' 
*ED6A' 



Tab. 5 



A inittufie ADC. 



_ 



ObservafSo: Estas ires instrucoes 
faiem parts das instruc/fles preeedi- 
das per 'ED', 

Vamos entao utilizer a instrucao ADC 
para fazer contas com numeros maiores 
do que 65535 Suponhamos que quises- 
semos somar os seguintes numeros: 

com '02A5EF' (= 2*65536 + 165* 
256 + 239 = 173 551) 
'F4DE' (=244*256 + 222 = 
= 62686) 

(NOTA: 65536= {256}*) 
Devemos obter: 173 551 + 62686 = 
= 236.237, 



Vamos dividir os numeros em tres par- 
tes: colocando o primeiro nos registros 
B, D e H e o segundo nos registros C, E e 
O o resultado serd colocado nas memrV 
rias, ap6s o fim do programa! O raciocf- 
nio a ser usado 6 analog© ao somar de nu- 
meros de tres di'gitos na base 10, s6 que, 
no caso, a base seria 256. . . (Tabela 6). 

Repare que nao nos interessa o resulta- 
do final dos registradores BC que no caso 
sera^ 61406. O resultado da nossa soma 
por partes esti nas memrjrias 30028, 
30029 e 30030 que estao apos a instrucao 
de RET, Portanto, para verificar se o nos- 
sa racioefnio esta certo, basta fazer: 

PRINT 65536 * PEEK 39030 + 256 * 

PEEK 30029 + PEEK 30028 

e obteremos 236.237! Note que a primei- 
ra instrucao de soma deve ser SEMPRE 
um ADD pois nao sabemos qual o valor 
inicial do CARRY e, se por acaso ele for 
1, introduziremos um erro no resultado. 
Neste ponto vale a pena saliemar que as 
instrucoes LD nao afetam a flag de 
CARRY; repare que as usamos iivremente 
entre as instrucoes de adicao sem afetar o 
resultado. 

As instrugoes de ADD e ADC tambem 
podem ser utilizadas para somar constan- 
tes numericas diretamente com o acumu- 
lador; assim temos: (Tabela 7). 



INSTRUCAO 


CODIGO 


ADO A, dado 
ADC A.dado 


'C6' t 1 bvlede dados 
*CE* + 1 byte de dados 



Tab, 7 



resultado ftcara no acumulador; lem- 
bre-se que este registro e privilegiado e 
todas as operacoes aritmeticas sao referi- 
das a ele! Obviamente estas instrucoes 
tambem afetam a flag de CARRY. Note 
que, nao podemos somar dados DIRETA- 
MENTE com pares de registros! 

Suponhamos entao que voce" deseje so- 
mar um numero, menor que 256 (por 
exemplo 74) com um par de registros 
(por exemplo HL). Isto poderia ser feita 
da seguinte maneira: (Tabela 8) 

Repare cuidadosamente no uso da ins- 
trucao ADC A,0, que foi utilizada apenas 
para somar o valor do CARRY ao registro 
H! Usando este mesmo procedimento, 
tente agora somar um numero rnaior do 
que 255 ao par HL, por exemplo HL + 
+ 256 . . (vocfi devera 1 quebrar o numero 
em dois bytes!). O exemplo anterior po- 
deria tambem ser feito carregando o par 
DE com 74 e usando a instrucao ADD 
HL, DE; entretanto, estaremos usando 
mais registros. 

A operagao de soma e 1 muito utilizada 
tambem quando desejamos utilizar uma 
variavel como contador para poder fazer 
loops de repeticSo, mais adiante, aprende- 
remos como fazer esses loops em lingua- 
gem de maquina; por enquanto, vamos in- 
troduzir a instrupao INC (abreviacao de 
INCREMENT), a qual adiciona 1 (um) ao 
valor do determinado registro (ou par), 
SEM, no entartto, AFETAR O VALOR 
DO CARRY! Observe que podemos usar 



MEM. 


309(30 


LD E.20Q 


'1EC8' 




MEM. 


30032 


LD D,58 


'163A' 




MEM. 


30304 


LDA.D 


•7A' 




MEM. 


30005 


ADD A,E 


'83' 


; soma E com A e gera CARRY 


MEM. 


30006 


LD C.A 


■4F" 


; cotoca o resultado em C 


MEM. 


30037 


LD A.3 


'3EO0' 


; coloca em A 


MEM. 


30009 


ADCA.A 


•ar-' 


; transfers o CARRY para A e a aeguir 
para B 


MEM. 


30010 


LD8.A 


*47' 




MEM. 


30011 


RET 


•C9' 




T»b.6 






Somade 


dois registios com resultado mator qua 2a5. 



MEM. 


30000 


LD DE.13189 


'11B533' 


; coloca 13189 cm DE 




MEM. 


30003 


LD HL.315B7 


'21C77B' 


; co i oca 3 1037 em H L 




MEM. 


300(95 


ADD HLDE 


'19' 


; soma DE com HL 




MEM. 


30007 


LD8.H 


'44' 


; coloca H cm BtLtmC para 
a S3 i"da na tela 




MEM. 


30008 


LD C,L 


'4D' 






MEM. 


30009 


RET 


'C9' 






Tab. « 








Soma do* par** D£ com H L 
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esta instrucao 
tros; (Tabela 9). 



com TODOS os regis- 



INSTflUCAQ 


CODIGO 


INC A 


•3C* 


INC 8 


'04' 


INCC 


'OC 


INCD 


•H' 


INCE 


"1C 


INCH 


74' 


INCL 


•2C" 


INCBC 


'93' 


INCOE 


•13' 


ntem. 


'23' 



INSTRUCAO 


CODIGO 


ADD A.(HL) 
ADC A,(HU 
INC (HL) 


'85' 
'8E' 
■34' 



Tib . 9 

Novamente, refer! ndo-se ao BASIC, 
uma analogia para esta instrucao serta: 

LET X = X + 1 

Lembre-se sempre da diferenca entre 
ADD e INC: por exemplo, ADD A,1 ira 
calcular um valor para o CARRY (0 ou 1 ) 
enquanto que INC A deixara o CARRY 
inalterado, embora asduas instrucoes pro- 
duzam o mesmo resultado no acumu- 
lador. 

Vamos entao, seguindo os mesmos pas- 
ses que f izemos com a instrucao LD, sair 
dos registros e ir para a mem6ria. Apenas 
trfe instrucoes sao disponi'veis, que mos- 
tram claramente oprivit4gio do Acumula- 
dor e do par de registros HL: [Tabela 10). 



Tab . 10 

que significant! respectivamente : some o 
CONTEUDO da mem6ria indicado pelo 
par HL ao acumulador (sem CARRY e 
com CARRY) e incremente o conteuda 
da memoria indicada por HL. Assim, ve- 
jamos o procedimento rtecessario, para so- 
mar um numero, por exemplo, 64, ao 
conteudo da mem6ria 30010:(Tabela tl). 

Faca POKE 30010,36 e a seguir exe- 
cute o programs. Voce devera obter 100, 



A> InttrufAti INC • ADD uiando • mamorii. 

pois ira realizar a conta 64 + 36 = 1 00! E" 
sempre bom recorder que as variaveis de- 
vem ficar APOS a instrucao de RET 
(30010) no nosso case). Entretanto, para 
programas mats complexes, e interessante 
colocar as variaveis bem depots da instru- 
cao de RET, deixando espaco livre na me- 
m6rta entre o fim do programa e as varia- 
veis para eventuais modificacoes no pro- 
grama que possam causar aumento do seu 
tamanho. o 



MEM. 


30000 


LD 


HL.30910 


■213A75' 


JCOtoca 30010 em HL 


MEM, 


30003 


LD 


A.64 


■3E49" 


; coloca 64 em A 


MEM. 


30005 


ADD 


A,(HU 


'8E' 


; coma o conteudo da memo- 
fia 30010 Com A 


MEM. 


30906 


LD 


B.fl 


'0600' 


; transfete o resultado para 
BC 


MEM. 


30098 


LD 


C,A 


'4F' 




MEM. 


33009 


RET 




*C9' 




Tab. It 








A ImtrufKi INC par* 01 regiitrot Inletnoi. 



COLOR 64 

o micro profissional 
mais barato do mercado 




INDUSTRtA ECOMERCIODE 
COMPUTADORES NOVO TEMPO 
LTDA. 

A v. Jose Mendonfa de Campos, 680 
Tel.- 701 0005 - Sao Gonfa/o ■ FU 
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1 Descontos especiats na 
aquisicao de llvros. 

> Desecmtos em lofas de 
produtos e sistemas de 
m Icrocom putadores. 



• Com uma assinatura arwal 
do BPI (NFORMATICA voce 

fecebeo SoftBooti 



SOUC/TE INFOPMAQdE S: 

(011) 35-3877 

CAIXA POSTAL 4802 SP 

Rua Xavter de Toledo, 210 8? ■ Ci. 81 

Sao Paulo SP 




SorBoom 

MM 

BPI INFORMATICA 

UnHica com vantagens suas necessidades na 
area de infocmatica, literatura, lazer. 




1984... voce esta preparado? 



NiVEL0 


NIVEL 1 


NIVEL2A 


NiVEL2B 


NIVEL3 


NIVEL4 


CRIANCAS 


ADULTOS 

E 
ADOLESC. 


ADULTOS 

E 
ADOLESC. 


ADOLESC. 
JOGOS 


ADULTOS 

E 
ADOLESC. 


ADULTOS 

E 
ADOLESC 


ion 


20h 


20 h 


20 h 


i.i i, 
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INICIAQAO 


APROF. EM 

APLICACOES 

ADM 


APLICACOES 

EM 

JOGOS 


LINGUAGEM 
DEMAOUINA 
ASSEMBLY Z80 


APROF DE 

LINGUAGEM 
DEMAOUINA 



Nucleo 

orientacao 
estudos 
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QUEBRA-CABEQA 



As7Fontes 

noCaniinho 

daAldeia 







R»nato da Silva Olivaira 



Novamente, para esta secao, contamos 
com a colaboracao de nosso colega, as- 
sinante e amigo pessoal, Nabor Rosenthal. 

Recebemos por volta do comeco do 
mes,uma carta onde Nabor nos conta so- 
bre sua ultima viagerrt, quando esteve no 
Norte da India. 

La, a caminho da casa de seu ami- 
go, Ramarujan, ele teve que atravessar 
Lima intrincada rede de pontes sobre um 
rio. O passeto de Nabor Rosenthal foi o 
que nos inspirou este mes. 

A seguir, transcreveremos o trecho da 
carta que deu origem ao nosso Guebra- 
Cabeca: 

"Indo ao encontro de meu amigo de 
infancia, tive que atravessar um rio. Este 
rio continha 10 pequenas ilhas, interliga- 
das por uma rede de 18 pontes. Entretan- 
to, para cruzar sets destas pontes, deve- 
riamos pagar uma determinada quantia. 
Este fato chamou-me a atencao e pergun- 
tei-me: Por que apenas sete? 

Eu queria visitar todas as ilhotas, pois 
uma carta de meu amigo hindu me infor- 
mava que em cada uma deias havia uma 
escultura em pedra, verdadeiras obras de 
arte, datadas de muitos seculos atrds. 

Antes de atravessar, porem, eu pensei 
um pouco sobre as sete pontes. Nao foi 
preciso muito tempo para descobrir a rni- 
lenar sabedoria Hindu, escondida discre- 
tamente na disposicao das pontes e na es- 
colha das pontes que deveriam ser taxa- 
das. Estas sete pontes foram escolhidas de 
tal forma que quern quisesse se livrar das 
taxas, teria que passar necessariamente 
por todas as ilhotas e por todas as outras 
11 pontes, pelo menos uma vez. Desse 
modo, uma pessoa disposta a nao gastar 
desnecessariamente, veria todas as dez 
esculturas, sem pagar um centavo. 

Atravessei o rio pelo caminho ma is 
econ6mico {sem pagar nada), passando 
uma tinica vez por cada ilhota e por cada 
42 MICROHOBBY 



— Gatinho Carateiro ! — disss ela com ti- 
midet, nao sabendo se o Gato gostava qua 
o chamatsem assim. Vendo que nao se tan- 
gava, aventurouse a concluir a frnte: 

— Pode duar'fne que caminho devo to- 
mar? 

— tsso dapende do Sugar para onde qtter 
fr — respondeu com muito propdsito o 
Gato. 

— NSo tertho destmo certo. 



— Nesse caso, qualquar caminho serve. 

— Serviri sim, se o caminho lever a si 
gum lugar — sugeriu Alice. 

— Qualquer caminho conduz a algum 
ponto, se vod andar depressa e chegar - 
ditto o Gato. 

Trecho de "Alice no Pais das Maraviihas" 
de Lewis Carroll — Adaptado por M. Lobeto 




uma das 1 1 pontes sem taxas. Na base de 
cada escultura que encontrei em meu ca- 
minho, havia um numero gravado. Anotei 
cada um deles e vi que formavam uma se- 
quSncia logica que chegou a meespantar, 
pois estes numeros, nesta sequfincia, apa- 
rentemente apresentavam um signifi- 
cado". 

Em anexo, Nabor nos mandou um ma- 
pa, que reproduzimos na figura 1 . As pon- 
tes estao diferenciadas por letras e as ilhas 
pelos numeros das esculturas. 



Seu probtema e; 

1) Fazer com que o TK, previamente 
programado, descubra o caminho seguido 
por Nabor Rosenthal, indicando quaisdas 
pontes ele usou. 

2) Descobrir, usando o TK, se hi al- 
gum signif icado na sequSncia de numeros 
encontrados nas bases das esculturas por 
Nabor Rosenthal, e se houver, esclarece- 
lo. 






COMPUTA 
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R PESSOAL 

AS-1000 




CARACTERISTICAS TECNICAS: 



UfVIDA DE DE PROCESSAMENTO: 

- Microprocessador Z80 A IB bits) velocidade 3, 25 MHz 

MENIQRSAS: 

- 8 Kbytes EPROM tsistema mteipretador BASIC). 

— I 6 Kbytes RAM tutiltzacSo para o usuSriol . 

MONITOR DE VIDEO 

— TVSSPou cSrnc canal 2 isem modtficacSo) 

— 24 linhas com 32 caracteres por imha. 

— Grdficos 44 x 64 pixels. 

— Video reverso e normaf comutSvel por chave 

SOFTWARE: 

- Compatfvef com: CP200, TK82-C, TK83, TK85. 

NE2800Q, TIMEX WOO, ZX80, 
IX8I. 

- ProgramSvel em Imguagem de mSquina 

- Basic residents 



UNIDADE DE FITA: 

- Um gravador Isem interface AS- 1001 

— Usando interface AS- IQO.ats' quatro gravadores. 

7ECLAD0: 

- Membrane com acSo sensitive de toque (bolha 
metres tnoxidavet). 

- 40 teclas com 154 funcdes, caracteres alfanumencos, 
caracteres grSficos, funcdes matematicas, COmandos. 

EXPANSAO: 

- Para 32 Kbytes e 48 Kbytes (64 Kbytes total. I 

— Adiciona-se um ou dots m6dufos de 16 Kbytes, no 
inferior do micro, atra v6s de acesso prdprio no /undo 
do mesmo 

— modulo basico de IS Kbytes, e os dois de 
expansSo, sSo todos iguais. permitindo expansSo 
progressiva pelo usudrfo. 

ACESSdJVOS: 

— Dois cabos para conexSo de gravador 

- Um cabo para conexSo do micro a TV, 

— A lorite de alimentacao I J 1 01 220V) ja 6 embutida no 
AS- WOO djspensando gualquer tome externa 



PemFEfUCOS: 

- Modem para transmissSo de dados. 

- Joystick. 

- AS- 1 00 /interface): 

- opera e gersncia atS quatro gravadores. 

- comanda quafquer impressora (inclusive 
profissionaisi. 

- manipula arquivos em fita e nao somenfe programas 
inteiros. 

• avanca e para gra vadores. tambim por software 
(programacBoi. 

■ testa valiOade de programas e arquivos em fita. 

- permite cdpias de fitas. 

- lista programas, dados e arquivos na impressora. 

- exclusivo ststema FSK {frequency shift keying) com 
compressor de Sudio, que ajusta automaticamenfe 

nivelpara o gravador, eliminando a desagradavel e 
critics tarefa de a/'uste no mesmo, oferecendo total 
confiabilidade nas gravacoes em fita. 

- Mddulos de expansSo Ivide memdriasl 

- Speed file: 

■ expansSo externa de merndna com I, 2 ou 4 
Mbytes. 



GARANTIA DE 7 ANO 
ASStSTENCIA TECNICA DE FABRICA 



engebrAs 



ENGEBRAS ELETRONICA E INFORMATICA LTDA. 



ADMINISTRAQAO DE VENDAS: Rua Bussel. 450 

CEP 22210 - RIO DE JANEIRO- Rj 



Tel.: 205-4898 
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Aqui voce tern a melhor 
iniciagSoem 
microcomputagdo 
queexiste. 

OTK83J6 ensinou mais de 2 milhdes de pessoas. 

Ete e muito fdcli de operar. Usa o Basic, e a mem6ria chego 
ate 64 K bytes, e aceita monitor, impressoro e joystick. 

Num instante voce vai ester resolvendo problemos 
programando, ou vencendo os muitosjogos disponfveis. O 
TK 83 nao e so a melhor iniciacao. Tambem e a mais diverilda. 



ui vocSja optica 
seus conhecimentos 

Com o TK 85 voc& tambem pode se divertir muito: ete 
tern dezenas de jogos disponfveis. 

Mas ete j6 e mais sofisticado. Tern software j6 pronto, 
Linguagens Basic e Assembler. Tectado tipo mdquina de 
escrever, com 40 tec/as e 160 furtcoes. 1 6 ou 48 K de 
memoriaRAM, e JOdeROM. Gravacao em high-speed, 
e funcSo Verify, paro motor seguronca. 

Quonda voc§ j6 estiver apoixonado por 
mfcrocompu/acao, ele vai corresponder totofmente. 



Aquivoc§ mostra 
tudo o que sabe. 

O TK 2000 Co/or tern tedo que os 
melhores micros t&m. Menos opreco, 
Aceita diskette, tmpressora (j6 vem com 
interface), alta reso/ucSo graftca d cores 
podendo ser iigado ao seu TV colorido 
ou P&B. Tern 64 k de memdria RAM e 
16 A de memdr/o ROM. Com exceienie 

ware dispon/ve/. 

/oce poae mostrar tudo o que sabe. 
Sem precisar mostrar muito dinheiro 
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